Mercurial > emacs
comparison lisp/dired.el @ 31706:2eb77e04a185
(dired-font-lock-keywords): Allow tabs and spaces,
for instance for the case that tab-width is 2.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 19 Sep 2000 10:38:25 +0000 |
parents | 78337ade0189 |
children | adedb7435316 |
comparison
equal
deleted
inserted
replaced
31705:9fec94425d43 | 31706:2eb77e04a185 |
---|---|
273 ;; simple regexp ".+". It is that regexp which matches the file name. | 273 ;; simple regexp ".+". It is that regexp which matches the file name. |
274 ;; | 274 ;; |
275 ;; Dired marks. | 275 ;; Dired marks. |
276 (list dired-re-mark | 276 (list dired-re-mark |
277 '(0 font-lock-constant-face) | 277 '(0 font-lock-constant-face) |
278 '(".+" (dired-move-to-filename) nil (0 font-lock-warning-face))) | 278 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-warning-face))) |
279 ;; People who are paranoid about security would consider this more | 279 ;; People who are paranoid about security would consider this more |
280 ;; important than other things such as whether it is a directory. | 280 ;; important than other things such as whether it is a directory. |
281 ;; But we don't want to encourage paranoia, so our default | 281 ;; But we don't want to encourage paranoia, so our default |
282 ;; should be what's most useful for non-paranoids. -- rms. | 282 ;; should be what's most useful for non-paranoids. -- rms. |
283 ;;; ;; | 283 ;;; ;; |
287 ;;; '(1 font-lock-comment-face) | 287 ;;; '(1 font-lock-comment-face) |
288 ;;; '(".+" (dired-move-to-filename) nil (0 font-lock-comment-face))) | 288 ;;; '(".+" (dired-move-to-filename) nil (0 font-lock-comment-face))) |
289 ;; | 289 ;; |
290 ;; Subdirectories. | 290 ;; Subdirectories. |
291 (list dired-re-dir | 291 (list dired-re-dir |
292 '(".+" (dired-move-to-filename) nil (0 font-lock-function-name-face))) | 292 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-function-name-face))) |
293 ;; | 293 ;; |
294 ;; Symbolic links. | 294 ;; Symbolic links. |
295 (list dired-re-sym | 295 (list dired-re-sym |
296 '(".+" (dired-move-to-filename) nil (0 font-lock-keyword-face))) | 296 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-keyword-face))) |
297 ;; | 297 ;; |
298 ;; Files suffixed with `completion-ignored-extensions'. | 298 ;; Files suffixed with `completion-ignored-extensions'. |
299 '(eval . | 299 '(eval . |
300 (let ((extensions (mapcar 'regexp-quote completion-ignored-extensions))) | 300 (let ((extensions (mapcar 'regexp-quote completion-ignored-extensions))) |
301 ;; It is quicker to first find just an extension, then go back to the | 301 ;; It is quicker to first find just an extension, then go back to the |
302 ;; start of that file name. So we do this complex MATCH-ANCHORED form. | 302 ;; start of that file name. So we do this complex MATCH-ANCHORED form. |
303 (list (concat "\\(" (mapconcat 'identity extensions "\\|") "\\|#\\)$") | 303 (list (concat "\\(" (mapconcat 'identity extensions "\\|") "\\|#\\)$") |
304 '(".+" (dired-move-to-filename) nil (0 font-lock-string-face)))))) | 304 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-string-face)))))) |
305 "Additional expressions to highlight in Dired mode.") | 305 "Additional expressions to highlight in Dired mode.") |
306 | 306 |
307 ;;; Macros must be defined before they are used, for the byte compiler. | 307 ;;; Macros must be defined before they are used, for the byte compiler. |
308 | 308 |
309 ;; Mark all files for which CONDITION evals to non-nil. | 309 ;; Mark all files for which CONDITION evals to non-nil. |