diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-03-26 23:57:49 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-03-26 23:57:49 +0000 |
commit | 101d780f38b1b05182a5676fce01cdf6d0b2d4db (patch) | |
tree | 7b32780d984c43ab5860d5203354fc3d917aa586 /lisp | |
parent | 51051917638e9b3ca0327321be73910bac9a2665 (diff) | |
download | emacs-101d780f38b1b05182a5676fce01cdf6d0b2d4db.tar.gz |
(set-visited-file-name): Don't call find-buffer-visiting if filename is nil.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index f48e38cc686..584aef9f456 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1423,7 +1423,7 @@ if you wish to pass an empty string as the argument." (setq truename (file-truename filename)) (if find-file-visit-truename (setq filename truename)))) - (let ((buffer (find-buffer-visiting filename))) + (let ((buffer (and filename (find-buffer-visiting filename)))) (and buffer (not (eq buffer (current-buffer))) (not (y-or-n-p (message "A buffer is visiting %s; proceed? " filename))) |