diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-09 22:54:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-09 22:54:09 +0000 |
| commit | 327bebe8044741384241bbe5c7c99904c3d748d8 (patch) | |
| tree | b6d6bfd8eeb0e2ea6eefe33a6ddd6b9e49a3cf37 /lisp/files.el | |
| parent | 4f5d303b2006da209fa295e2f90ea5105e3e2f34 (diff) | |
| download | emacs-327bebe8044741384241bbe5c7c99904c3d748d8.tar.gz emacs-327bebe8044741384241bbe5c7c99904c3d748d8.tar.bz2 emacs-327bebe8044741384241bbe5c7c99904c3d748d8.zip | |
(find-file-noselect): Suppress same-file warning if
both filenames would print identically.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 4f7fead12ae..0a8aca1bd63 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -631,8 +631,10 @@ The buffer is not selected, just returned to the caller." ;; Let user know if there is a buffer with the same truename. (if other (progn - (or nowarn (message "%s and %s are the same file" - filename (buffer-file-name other))) + (or nowarn + (string-equal filename (buffer-file-name other)) + (message "%s and %s are the same file" + filename (buffer-file-name other))) ;; Optionally also find that buffer. (if (or find-file-existing-other-name find-file-visit-truename) (setq buf other)))) |