# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1004647451 0
# Node ID 437141ea2a14dbe2ac270e0385f177e68bb6b959
# Parent  3a44ea41ebcb64c34a5578738d34bac93ee14d18
(file-newest-backup): Don't pass backup file name
thru file-name-sans-versions, because it never has version numbers.

diff -r 3a44ea41ebcb -r 437141ea2a14 lisp/files.el
--- a/lisp/files.el	Thu Nov 01 19:55:51 2001 +0000
+++ b/lisp/files.el	Thu Nov 01 20:44:11 2001 +0000
@@ -2866,8 +2866,7 @@
   ;; `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))