Mercurial > emacs
comparison lisp/files.el @ 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 | b6381b3a6c99 |
| children | 104a97493dcc |
comparison
equal
deleted
inserted
replaced
| 15328:90dc960355d9 | 15329:19008fd7774d |
|---|---|
| 120 The value is a list of the form (FILENUM DEVNUM). | 120 The value is a list of the form (FILENUM DEVNUM). |
| 121 This pair of numbers uniquely identifies the file. | 121 This pair of numbers uniquely identifies the file. |
| 122 If the buffer is visiting a new file, the value is nil.") | 122 If the buffer is visiting a new file, the value is nil.") |
| 123 (make-variable-buffer-local 'buffer-file-number) | 123 (make-variable-buffer-local 'buffer-file-number) |
| 124 (put 'buffer-file-number 'permanent-local t) | 124 (put 'buffer-file-number 'permanent-local t) |
| 125 | |
| 126 (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt))) | |
| 127 "Non-nil means that buffer-file-number uniquely identifies files.") | |
| 125 | 128 |
| 126 (defconst file-precious-flag nil | 129 (defconst file-precious-flag nil |
| 127 "*Non-nil means protect against I/O errors while saving files. | 130 "*Non-nil means protect against I/O errors while saving files. |
| 128 Some modes set this non-nil in particular buffers. | 131 Some modes set this non-nil in particular buffers. |
| 129 | 132 |
| 689 (setq found (car list)))) | 692 (setq found (car list)))) |
| 690 (setq list (cdr list))) | 693 (setq list (cdr list))) |
| 691 found) | 694 found) |
| 692 (let ((number (nthcdr 10 (file-attributes truename))) | 695 (let ((number (nthcdr 10 (file-attributes truename))) |
| 693 (list (buffer-list)) found) | 696 (list (buffer-list)) found) |
| 694 (and number | 697 (and buffer-file-numbers-unique |
| 698 number | |
| 695 (while (and (not found) list) | 699 (while (and (not found) list) |
| 696 (save-excursion | 700 (save-excursion |
| 697 (set-buffer (car list)) | 701 (set-buffer (car list)) |
| 698 (if (and buffer-file-name | 702 (if (and buffer-file-name |
| 699 (equal buffer-file-number number) | 703 (equal buffer-file-number number) |