mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-08 22:54:46 +00:00
parent 5f8a398a50
commit 536ae2dded
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/dired.el
View File

@ -1719,7 +1719,16 @@ A prefix argument says to unflag those files instead."
;; It is less than general to check for ~ here, ;; It is less than general to check for ~ here,
;; but it's the only way this runs fast enough. ;; but it's the only way this runs fast enough.
(and (save-excursion (end-of-line) (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)) (not (looking-at dired-re-dir))
(let ((fn (dired-get-filename t t))) (let ((fn (dired-get-filename t t)))
(if fn (auto-save-file-name-p (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, ;; It is less than general to check for ~ here,
;; but it's the only way this runs fast enough. ;; but it's the only way this runs fast enough.
(and (save-excursion (end-of-line) (and (save-excursion (end-of-line)
(or (or
(eq (preceding-char) ?~) (eq (preceding-char) ?~)
;; Handle executables in case of -F option. ;; Handle executables in case of -F option.
;; We need not worry about the other kinds ;; We need not worry about the other kinds
;; of markings that -F makes, since they won't ;; of markings that -F makes, since they won't
;; appear on real backup files. ;; appear on real backup files.
(if (eq (preceding-char) ?*) (if (eq (preceding-char) ?*)
(progn (progn
(forward-char -1) (forward-char -1)
(eq (preceding-char) ?~))))) (eq (preceding-char) ?~)))))
(not (looking-at dired-re-dir)) (not (looking-at dired-re-dir))
(let ((fn (dired-get-filename t t))) (let ((fn (dired-get-filename t t)))
(if fn (backup-file-name-p fn)))) (if fn (backup-file-name-p fn))))