# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1116768921 0
# Node ID 1f84b1fd25606eb890bdd6666437c97c39db4609
# Parent  c9e18de90ee3052e5c02b9e3a3e227e63f4c7206
(dired-font-lock-keywords): Fontify files with junk extensions
even if marked by -F.

diff -r c9e18de90ee3 -r 1f84b1fd2560 lisp/dired.el
--- 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.