diff options
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/files.el b/lisp/files.el index 1eac656f8b7..8f33ee8d975 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -592,17 +592,18 @@ If there is no such live buffer, return nil." found) (let ((number (nthcdr 10 (file-attributes truename))) (list (buffer-list)) found) - (while (and (not found) list) - (save-excursion - (set-buffer (car list)) - (if (and (equal buffer-file-number number) - ;; Verify this buffer's file number - ;; still belongs to its file. - (file-exists-p buffer-file-name) - (equal (nthcdr 10 (file-attributes buffer-file-name)) - number)) - (setq found (car list)))) - (setq list (cdr list))) + (and number + (while (and (not found) list) + (save-excursion + (set-buffer (car list)) + (if (and (equal buffer-file-number number) + ;; Verify this buffer's file number + ;; still belongs to its file. + (file-exists-p buffer-file-name) + (equal (nthcdr 10 (file-attributes buffer-file-name)) + number)) + (setq found (car list)))) + (setq list (cdr list)))) found)))) (defun find-file-noselect (filename &optional nowarn) |