Mercurial > emacs

diff lisp/files.el @ 45473:9a8b2dd39ddc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-newest-backup): Use file-name-sans-versions.
author Markus Rost <rost@math.uni-bielefeld.de>
date Wed, 22 May 2002 23:29:23 +0000
parents 1450fcbbad57
children 0c2a22313f16
line wrap: on
line diff
--- a/lisp/files.el	Wed May 22 23:26:51 2002 +0000
+++ b/lisp/files.el	Wed May 22 23:29:23 2002 +0000
@@ -3011,7 +3011,8 @@
   ;; `make-backup-file-name' will get us the right directory for
   ;; ordinary or numeric backups.  It might create a directory for
   ;; backups as a side-effect, according to `backup-directory-alist'.
-  (let* ((filename (make-backup-file-name filename))
+  (let* ((filename (file-name-sans-versions
+		    (make-backup-file-name filename)))
 	 (file (file-name-nondirectory filename))
 	 (dir  (file-name-directory    filename))
 	 (comp (file-name-all-completions file dir))