From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 5 Oct 2022 13:08:01 +0000 (+0200)
Subject: ; * lisp/files.el (find-file-noselect): Minor simplification.
X-Git-Tag: emacs-29.0.90~1856^2~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1720ebecc7670903129de70fee1a72c875c42d95;p=emacs.git

; * lisp/files.el (find-file-noselect): Minor simplification.
---

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