diff options
| author | Richard M. Stallman | 1996-03-26 23:57:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-03-26 23:57:49 +0000 |
| commit | 11e314fa730ce41891df5ad2a9777cbeb0a8ed4e (patch) | |
| tree | 8c677c2084800541915d844fe118b8fc56591cb6 | |
| parent | 4475c222990bd071bd5466719cf585be87c77c16 (diff) | |
| download | emacs-11e314fa730ce41891df5ad2a9777cbeb0a8ed4e.tar.gz emacs-11e314fa730ce41891df5ad2a9777cbeb0a8ed4e.zip | |
(set-visited-file-name): Don't call find-buffer-visiting if filename is nil.
| -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." | |||
| 1423 | (setq truename (file-truename filename)) | 1423 | (setq truename (file-truename filename)) |
| 1424 | (if find-file-visit-truename | 1424 | (if find-file-visit-truename |
| 1425 | (setq filename truename)))) | 1425 | (setq filename truename)))) |
| 1426 | (let ((buffer (find-buffer-visiting filename))) | 1426 | (let ((buffer (and filename (find-buffer-visiting filename)))) |
| 1427 | (and buffer (not (eq buffer (current-buffer))) | 1427 | (and buffer (not (eq buffer (current-buffer))) |
| 1428 | (not (y-or-n-p (message "A buffer is visiting %s; proceed? " | 1428 | (not (y-or-n-p (message "A buffer is visiting %s; proceed? " |
| 1429 | filename))) | 1429 | filename))) |