418 |
;; It is quicker to first find just an extension, then go back to the |
;; It is quicker to first find just an extension, then go back to the |
419 |
;; start of that file name. So we do this complex MATCH-ANCHORED form. |
;; start of that file name. So we do this complex MATCH-ANCHORED form. |
420 |
(list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") |
(list (concat "\\(" (regexp-opt completion-ignored-extensions) "\\|#\\)$") |
421 |
'(".+" (dired-move-to-filename) nil (0 dired-ignored-face))))) |
'(".+" (dired-move-to-filename) nil (0 dired-ignored-face)))) |
422 |
|
;; |
423 |
|
;; Files suffixed with `completion-ignored-extensions' |
424 |
|
;; plus a character put in by -F. |
425 |
|
'(eval . |
426 |
|
(list (concat "\\(" (regexp-opt completion-ignored-extensions) |
427 |
|
"\\|#\\)[*=|]$") |
428 |
|
'(".+" (progn |
429 |
|
(end-of-line) |
430 |
|
;; If the last character is not part of the filename, |
431 |
|
;; move back to the start of the filename |
432 |
|
;; so it can be fontified. |
433 |
|
;; Otherwise, leave point at the end of the line; |
434 |
|
;; that way, nothing is fontified. |
435 |
|
(unless (get-text-property (1- (point)) 'mouse-face) |
436 |
|
(dired-move-to-filename))) |
437 |
|
nil (0 dired-ignored-face)))) |
438 |
|
) |
439 |
"Additional expressions to highlight in Dired mode.") |
"Additional expressions to highlight in Dired mode.") |
440 |
|
|
441 |
;;; Macros must be defined before they are used, for the byte compiler. |
;;; Macros must be defined before they are used, for the byte compiler. |