Fix Bug#32454

* lisp/files.el (find-alternate-file): Handle the wildcards case.
(Bug#32454)
This commit is contained in:
Michael Albinus 2018-08-16 17:26:37 +02:00
parent 5f39f203ee
commit 44ad4a15a0

View file

@ -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.