procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
initialize to nil for windows-nt.
(find-buffer-visiting): Skip search for buffer based
on buffer-file-number if these are not unique.
This commit is contained in:
Richard M. Stallman 1996-06-04 16:17:22 +00:00
parent 65b4665c1f
commit de88363f85
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/files.el
View file

@ -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."
found)
(let ((number (nthcdr 10 (file-attributes truename)))
(list (buffer-list)) found)
(and number
(and buffer-file-numbers-unique
number
(while (and (not found) list)
(save-excursion
(set-buffer (car list))