# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739580086 0
# Node ID 8223f1bf078f6598dca128f74e8be2ee2ac6934c
# Parent  f6eeb536beda82378f71cbed78096a955bfd828f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.

diff -r f6eeb536beda -r 8223f1bf078f lisp/dired.el
--- a/lisp/dired.el	Tue Jun 08 21:08:56 1993 +0000
+++ b/lisp/dired.el	Tue Jun 08 22:54:46 1993 +0000
@@ -1719,7 +1719,16 @@
      ;; It is less than general to check for ~ here,
      ;; but it's the only way this runs fast enough.
      (and (save-excursion (end-of-line)
-			  (eq (preceding-char) ?#))
+                          (or
+                           (eq (preceding-char) ?#)
+                           ;; Handle executables in case of -F option.
+                           ;; We need not worry about the other kinds
+                           ;; of markings that -F makes, since they won't
+                           ;; appear on real auto-save files.
+                           (if (eq (preceding-char) ?*)
+                               (progn
+                                 (forward-char -1)
+                                 (eq (preceding-char) ?#)))))
 	  (not (looking-at dired-re-dir))
 	  (let ((fn (dired-get-filename t t)))
 	    (if fn (auto-save-file-name-p
@@ -1735,16 +1744,16 @@
      ;; It is less than general to check for ~ here,
      ;; but it's the only way this runs fast enough.
      (and (save-excursion (end-of-line)
-                            (or
-                             (eq (preceding-char) ?~)
-			     ;; Handle executables in case of -F option.
-			     ;; We need not worry about the other kinds
-			     ;; of markings that -F makes, since they won't
-			     ;; appear on real backup files.
-                             (if (eq (preceding-char) ?*)
-                                 (progn
-                                   (forward-char -1)
-                                   (eq (preceding-char) ?~)))))
+			  (or
+			   (eq (preceding-char) ?~)
+			   ;; Handle executables in case of -F option.
+			   ;; We need not worry about the other kinds
+			   ;; of markings that -F makes, since they won't
+			   ;; appear on real backup files.
+			   (if (eq (preceding-char) ?*)
+			       (progn
+				 (forward-char -1)
+				 (eq (preceding-char) ?~)))))
 	  (not (looking-at dired-re-dir))
 	  (let ((fn (dired-get-filename t t)))
 	    (if fn (backup-file-name-p fn))))