andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-visited-file-name): Avoid calling file-name-nondirectory with a

Browse source 
nil argument.
This commit is contained in:
Luc Teirlinck 2005-07-10 14:42:02 +00:00
parent 4a65d2b34e
commit e6d0b67a70
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/files.el
View file

@ -2545,7 +2545,7 @@ the old visited file has been renamed to the new name FILENAME."
(if find-file-visit-truename
(setq filename truename))))
(if filename
(let ((new-name (file-name-nondirectory buffer-file-name)))
(let ((new-name (file-name-nondirectory filename)))
(if (string= new-name "")
(error "Empty file name"))))
(let ((buffer (and filename (find-buffer-visiting filename))))