Mercurial > emacs
changeset 3580:8223f1bf078f
(dired-flag-auto-save-files): Ignore `*' added by ls -F.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 08 Jun 1993 22:54:46 +0000 |
| parents | f6eeb536beda |
| children | 152fd924c7bb |
| files | lisp/dired.el |
| diffstat | 1 files changed, 20 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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))))