From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 16 Aug 2018 15:26:37 +0000 (+0200)
Subject: Fix Bug#32454
X-Git-Tag: emacs-27.0.90~4556
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44ad4a15a0099285a16018ad790419cb60df5815;p=emacs.git

Fix Bug#32454

* lisp/files.el (find-alternate-file): Handle the wildcards case.
(Bug#32454)
---

diff --git a/lisp/files.el b/lisp/files.el
index 8057def5259..da4f2cd78fe 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1831,7 +1831,7 @@ killed."
           ;; in some corner cases, e.g. when the selected window is
           ;; softly-dedicated.
 	  (let ((newbuf (find-file-noselect filename nil nil wildcards)))
-            (switch-to-buffer newbuf)))
+            (switch-to-buffer (if (consp newbuf) (car newbuf) newbuf))))
       (when (eq obuf (current-buffer))
 	;; This executes if find-file gets an error
 	;; and does not really find anything.