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

(buffer-file-numbers-unique): New variable;

initialize to nil for windows-nt.
(find-buffer-visiting): Skip search for buffer based
on buffer-file-number if these are not unique.
parent 65b4665c
......@@ -123,6 +123,9 @@ If the buffer is visiting a new file, the value is nil.")
(make-variable-buffer-local 'buffer-file-number)
(put 'buffer-file-number 'permanent-local t)
(defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt)))
"Non-nil means that buffer-file-number uniquely identifies files.")
(defconst file-precious-flag nil
"*Non-nil means protect against I/O errors while saving files.
Some modes set this non-nil in particular buffers.
......@@ -691,7 +694,8 @@ If there is no such live buffer, return nil."
(let ((number (nthcdr 10 (file-attributes truename)))
(list (buffer-list)) found)
(and number
(and buffer-file-numbers-unique
(while (and (not found) list)
(set-buffer (car list))
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