[Emacs-diffs] Changes to emacs/lisp/files.el

[Markus Rost]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.575 emacs/lisp/files.el:1.576
*** emacs/lisp/files.el:1.575   Mon May 20 00:40:40 2002
--- emacs/lisp/files.el Wed May 22 19:29:23 2002
***************
*** 3011,3017 ****
    ;; `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))
         (file (file-name-nondirectory filename))
         (dir  (file-name-directory    filename))
         (comp (file-name-all-completions file dir))
--- 3011,3018 ----
    ;; `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)))
         (file (file-name-nondirectory filename))
         (dir  (file-name-directory    filename))
         (comp (file-name-all-completions file dir))