Commit 181c830f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-buffer-visiting): Don't compare NUMBER if it is nil.

parent d7846e08
......@@ -592,6 +592,7 @@ If there is no such live buffer, return nil."
found)
(let ((number (nthcdr 10 (file-attributes truename)))
(list (buffer-list)) found)
(and number
(while (and (not found) list)
(save-excursion
(set-buffer (car list))
......@@ -602,7 +603,7 @@ If there is no such live buffer, return nil."
(equal (nthcdr 10 (file-attributes buffer-file-name))
number))
(setq found (car list))))
(setq list (cdr list)))
(setq list (cdr list))))
found))))
(defun find-file-noselect (filename &optional nowarn)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment