diff options
| -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)))) |