diff options
| author | Richard M. Stallman | 2002-08-28 22:23:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-08-28 22:23:36 +0000 |
| commit | 6f4b3ed83d4f1f454041c0365c41d5edc791e974 (patch) | |
| tree | b78574fbeb8aa956a34457821091a3d6114d6041 | |
| parent | d7b6ca4a9f4432a94d9000c35f32144874faf4ea (diff) | |
| download | emacs-6f4b3ed83d4f1f454041c0365c41d5edc791e974.tar.gz emacs-6f4b3ed83d4f1f454041c0365c41d5edc791e974.zip | |
(find-buffer-visiting): Compare file attributes using buffer-file-truename.
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/files.el | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 19ea7df3412..a20a02044bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,13 @@ | |||
| 1 | 2002-08-28 Luc Teirlinck <teirllm@mail.auburn.edu> | ||
| 2 | |||
| 3 | * files.el (find-buffer-visiting): Compare file attributes | ||
| 4 | using buffer-file-truename. | ||
| 5 | |||
| 6 | 2002-08-28 Richard M. Stallman <rms@gnu.org> | ||
| 7 | |||
| 8 | * files.el (make-auto-save-file-name, make-backup-file-name-1): | ||
| 9 | Don't use directory-sep-char. | ||
| 10 | |||
| 1 | 2002-08-28 Juanma Barranquero <lektu@terra.es> | 11 | 2002-08-28 Juanma Barranquero <lektu@terra.es> |
| 2 | 12 | ||
| 3 | * replace.el (occur-hook): Renamed from `occur-mode-hook'. | 13 | * replace.el (occur-hook): Renamed from `occur-mode-hook'. |
diff --git a/lisp/files.el b/lisp/files.el index 0cb3fddecea..0983762356c 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1076,7 +1076,7 @@ If there is no such live buffer, return nil." | |||
| 1076 | ;; Verify this buffer's file number | 1076 | ;; Verify this buffer's file number |
| 1077 | ;; still belongs to its file. | 1077 | ;; still belongs to its file. |
| 1078 | (file-exists-p buffer-file-name) | 1078 | (file-exists-p buffer-file-name) |
| 1079 | (equal (file-attributes buffer-file-name) | 1079 | (equal (file-attributes buffer-file-truename) |
| 1080 | attributes)) | 1080 | attributes)) |
| 1081 | (setq found (car list)))) | 1081 | (setq found (car list)))) |
| 1082 | (setq list (cdr list)))) | 1082 | (setq list (cdr list)))) |