Mercurial > emacs

changeset 13750:6a9cecd5bcfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-flag-backup-files): Undo previous change.
author Karl Heuer <kwzh@gnu.org>
date Tue, 19 Dec 1995 21:39:23 +0000
parents 2015901ab992
children b7894a0895c0
files lisp/dired.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Tue Dec 19 21:30:13 1995 +0000
+++ b/lisp/dired.el	Tue Dec 19 21:39:23 1995 +0000
@@ -2012,8 +2012,7 @@
   "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 @@
 			  ;; 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))))