Mercurial > emacs
changeset 7422:49876b60d0c6
(find-file-noselect): Suppress same-file warning if
both filenames would print identically.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 May 1994 22:54:09 +0000 |
| parents | 6f9af07c5783 |
| children | 4a5d0d109242 |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Mon May 09 22:18:59 1994 +0000 +++ b/lisp/files.el Mon May 09 22:54:09 1994 +0000 @@ -631,8 +631,10 @@ ;; 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))))