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))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
