Mercurial > emacs
comparison lisp/dired.el @ 31762:adedb7435316
(dired-font-lock-keywords): Undo last change.
(dired-readin): Bind indent-tabs-mode to nil.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 20 Sep 2000 11:22:17 +0000 |
parents | 2eb77e04a185 |
children | 638a006b3c47 |
comparison
equal
deleted
inserted
replaced
31761:d9efa91b06ab | 31762:adedb7435316 |
---|---|
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 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-warning-face))) | 278 '(".+" (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 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-function-name-face))) | 292 '(".+" (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 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-keyword-face))) | 296 '(".+" (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 '("[ \t]+" (dired-move-to-filename) nil (0 font-lock-string-face)))))) | 304 '(".+" (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. |
599 ;; Thus we can test (equal default-directory dirname) instead of | 599 ;; Thus we can test (equal default-directory dirname) instead of |
600 ;; (file-directory-p dirname) and save a filesystem transaction. | 600 ;; (file-directory-p dirname) and save a filesystem transaction. |
601 ;; Also, we can run this hook which may want to modify the switches | 601 ;; Also, we can run this hook which may want to modify the switches |
602 ;; based on default-directory, e.g. with ange-ftp to a SysV host | 602 ;; based on default-directory, e.g. with ange-ftp to a SysV host |
603 ;; where ls won't understand -Al switches. | 603 ;; where ls won't understand -Al switches. |
604 (let (dirname) | 604 (let (dirname |
605 (indent-tabs-mode nil)) | |
605 (if (consp dir-or-list) | 606 (if (consp dir-or-list) |
606 (setq dirname (car dir-or-list)) | 607 (setq dirname (car dir-or-list)) |
607 (setq dirname dir-or-list)) | 608 (setq dirname dir-or-list)) |
608 (setq dirname (expand-file-name dirname)) | 609 (setq dirname (expand-file-name dirname)) |
609 (if (consp dir-or-list) | 610 (if (consp dir-or-list) |