diff options
| author | Richard M. Stallman | 1993-04-11 21:22:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-04-11 21:22:35 +0000 |
| commit | 4e7afa864d1a35383219953d25b6fdc78f567324 (patch) | |
| tree | 029c49c29f5cae15914ea4b8e5e2252740c1ab01 | |
| parent | e407986c5686d2bcba89bfb4c4057cc01b4354d4 (diff) | |
| download | emacs-4e7afa864d1a35383219953d25b6fdc78f567324.tar.gz emacs-4e7afa864d1a35383219953d25b6fdc78f567324.zip | |
(find-file-noselect): Verify other buffers' file numbers are still valid.
| -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 fe3a29cfdd1..5d1b91ce823 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -480,7 +480,11 @@ The buffer is not selected, just returned to the caller." | |||
| 480 | (while (and (not found) list) | 480 | (while (and (not found) list) |
| 481 | (save-excursion | 481 | (save-excursion |
| 482 | (set-buffer (car list)) | 482 | (set-buffer (car list)) |
| 483 | (if (equal buffer-file-number number) | 483 | (if (and (equal buffer-file-number number) |
| 484 | ;; Verify this buffer's file number | ||
| 485 | ;; still belongs to its file. | ||
| 486 | (file-exists-p buffer-file-name) | ||
| 487 | (equal (nthcdr 10 (file-attributes buffer-file-name)) number)) | ||
| 484 | (setq found (car list)))) | 488 | (setq found (car list)))) |
| 485 | (setq list (cdr list))) | 489 | (setq list (cdr list))) |
| 486 | found)))) | 490 | found)))) |