diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-06-04 16:17:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-06-04 16:17:22 +0000 |
commit | d54344ac7139ccef357e574852685d0b351f69e9 (patch) | |
tree | eae316afcc0fc63adf34d052aa16b55c482cae93 | |
parent | e764ecd33359ba0967c147d9ffcb1f6fe79c621e (diff) | |
download | emacs-d54344ac7139ccef357e574852685d0b351f69e9.tar.gz |
(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.
-rw-r--r-- | lisp/files.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index eb2b3ed9c9d..7a3bb717c2a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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)) |