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

[Luc Teirlinck]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.778 emacs/lisp/files.el:1.779
*** emacs/lisp/files.el:1.778   Fri Jul  8 22:53:47 2005
--- emacs/lisp/files.el Sun Jul 10 14:42:02 2005
***************
*** 2545,2551 ****
          (if find-file-visit-truename
              (setq filename truename))))
      (if filename
!       (let ((new-name (file-name-nondirectory buffer-file-name)))
          (if (string= new-name "")
              (error "Empty file name"))))
      (let ((buffer (and filename (find-buffer-visiting filename))))
--- 2545,2551 ----
          (if find-file-visit-truename
              (setq filename truename))))
      (if filename
!       (let ((new-name (file-name-nondirectory filename)))
          (if (string= new-name "")
              (error "Empty file name"))))
      (let ((buffer (and filename (find-buffer-visiting filename))))