Skip to content

GitLab

Commit 536ae2dd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-flag-auto-save-files): Ignore `*' added by ls -F.

parent 5f8a398a
Hide whitespace changes
Inline Side-by-side
Showing with 20 additions and 11 deletions
lisp/dired.el
View file @ 536ae2dd
......@@ -1719,7 +1719,16 @@ A prefix argument says to unflag those files instead."
;; 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 @@ 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)
(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))))
......
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