Mercurial > emacs
changeset 15329:19008fd7774d
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 04 Jun 1996 16:17:22 +0000 |
| parents | 90dc960355d9 |
| children | 770c11688d0f |
| files | lisp/files.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Jun 04 15:31:01 1996 +0000 +++ b/lisp/files.el Tue Jun 04 16:17:22 1996 +0000 @@ -123,6 +123,9 @@ (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 @@ 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))