diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-19 21:39:23 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-19 21:39:23 +0000 |
| commit | 05f0ec18358ad7a30f5b26515253c56446393b73 (patch) | |
| tree | ca6d01e5fe7e4bf210bc4a4e9398fe47c28f7de8 /lisp/dired.el | |
| parent | bfdb64413247102d10ed199fc7a58c2d8447ea95 (diff) | |
| download | emacs-05f0ec18358ad7a30f5b26515253c56446393b73.tar.gz | |
(dired-flag-backup-files): Undo previous change.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 5782e0ab012..541829d9a2d 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2012,8 +2012,7 @@ A prefix argument says to unflag those files instead." "Flag all backup files (names ending with `~') for deletion. With prefix argument, unflag these files." (interactive "P") - (let ((dired-marker-char (if unflag-p ?\ dired-del-marker)) - (last-c (if (eq system-type 'ms-dos) ?k ?~))) + (let ((dired-marker-char (if unflag-p ?\ dired-del-marker))) (dired-mark-if ;; Don't call backup-file-name-p unless the last character looks like ;; it might be the end of a backup file name. This isn't very general, @@ -2025,7 +2024,7 @@ With prefix argument, unflag these files." ;; appear on real backup files. (if (eq (preceding-char) ?*) (forward-char -1)) - (eq (preceding-char) last-c)) + (eq (preceding-char) ?~)) (not (looking-at dired-re-dir)) (let ((fn (dired-get-filename t t))) (if fn (backup-file-name-p fn)))) |