Mercurial > emacs
changeset 62616:1f84b1fd2560
(dired-font-lock-keywords): Fontify files with junk extensions
even if marked by -F.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 May 2005 13:35:21 +0000 |
| parents | c9e18de90ee3 |
| children | f679b0ed3d82 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Sun May 22 13:31:22 2005 +0000 +++ b/lisp/dired.el Sun May 22 13:35:21 2005 +0000 @@ -418,7 +418,24 @@ ;; It is quicker to first find just an extension, then go back to the ;; start of that file name. So we do this complex MATCH-ANCHORED form. (list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") - '(".+" (dired-move-to-filename) nil (0 dired-ignored-face))))) + '(".+" (dired-move-to-filename) nil (0 dired-ignored-face)))) + ;; + ;; Files suffixed with `completion-ignored-extensions' + ;; plus a character put in by -F. + '(eval . + (list (concat "\\(" (regexp-opt completion-ignored-extensions) + "\\|#\\)[*=|]$") + '(".+" (progn + (end-of-line) + ;; If the last character is not part of the filename, + ;; move back to the start of the filename + ;; so it can be fontified. + ;; Otherwise, leave point at the end of the line; + ;; that way, nothing is fontified. + (unless (get-text-property (1- (point)) 'mouse-face) + (dired-move-to-filename))) + nil (0 dired-ignored-face)))) +) "Additional expressions to highlight in Dired mode.") ;;; Macros must be defined before they are used, for the byte compiler.