Commit 0102ea2d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-flag-backup-files): Handle `*' made by `ls -F'.

parent e066c2ae
......@@ -1735,7 +1735,16 @@ With prefix argument, unflag these files."
;; 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 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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment