Mercurial > emacs
comparison lisp/files.el @ 14883:f8a7a08fb9dd
(set-visited-file-name): Don't call find-buffer-visiting if filename is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 26 Mar 1996 23:57:49 +0000 |
| parents | 20f4c4a078b2 |
| children | 645493140921 |
comparison
equal
deleted
inserted
replaced
| 14882:582cb6240b09 | 14883:f8a7a08fb9dd |
|---|---|
| 1421 (if filename | 1421 (if filename |
| 1422 (progn | 1422 (progn |
| 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))) |
| 1430 (error "Aborted"))) | 1430 (error "Aborted"))) |
| 1431 (or (equal filename buffer-file-name) | 1431 (or (equal filename buffer-file-name) |