From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Nov 2001 20:44:11 +0000 (+0000)
Subject: (file-newest-backup): Don't pass backup file name
X-Git-Tag: ttn-vms-21-2-B4~18903
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4803e625deec92363f1be2547847fb1c833868d2;p=emacs.git

(file-newest-backup): Don't pass backup file name
thru file-name-sans-versions, because it never has version numbers.
---

diff --git a/lisp/files.el b/lisp/files.el
index 75937f7a86d..846b1e43589 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2866,8 +2866,7 @@ saying what text to write."
   ;; `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 (file-name-sans-versions
-		    (make-backup-file-name filename)))
+  (let* ((filename (make-backup-file-name filename))
 	 (file (file-name-nondirectory filename))
 	 (dir  (file-name-directory    filename))
 	 (comp (file-name-all-completions file dir))