diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-10-05 15:08:01 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-10-05 15:08:01 +0200 |
| commit | 1720ebecc7670903129de70fee1a72c875c42d95 (patch) | |
| tree | 85a47f2340b431d6641607d077f470d8e49ebf83 /lisp/files.el | |
| parent | 6430c4c44f3cbfdaa702302017afbc5d442960f3 (diff) | |
| download | emacs-1720ebecc7670903129de70fee1a72c875c42d95.tar.gz emacs-1720ebecc7670903129de70fee1a72c875c42d95.tar.bz2 emacs-1720ebecc7670903129de70fee1a72c875c42d95.zip | |
; * lisp/files.el (find-file-noselect): Minor simplification.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/files.el b/lisp/files.el index 667e3325bb7..43c5d7d1da1 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2379,16 +2379,15 @@ the various files." 'buffer-file-name buffer))) (and file (file-exists-p file)))))))) ;; Let user know if there is a buffer with the same truename. - (if other - (progn - (or nowarn - find-file-suppress-same-file-warnings - (string-equal filename (buffer-file-name other)) - (files--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)))) + (when other + (or nowarn + find-file-suppress-same-file-warnings + (string-equal filename (buffer-file-name other)) + (files--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))) ;; Check to see if the file looks uncommonly large. (when (not (or buf nowarn)) (when (eq (abort-if-file-too-large |