From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 31 Oct 2000 16:55:23 +0000 (+0000)
Subject: (find-file-noselect): When we expand a wildcard, return
X-Git-Tag: emacs-pretest-21.0.90~390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=648ec2ff27b23d245acd7fb766bc33c58b8b27fa;p=emacs.git

(find-file-noselect): When we expand a wildcard, return
a list of buffers, as we should do according to the doc string.
---

diff --git a/lisp/files.el b/lisp/files.el
index 268565968aa..3fa55ac80ad 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1007,7 +1007,7 @@ that are visiting the various files."
 	      (find-file-wildcards nil))
 	  (if (null files)
 	      (find-file-noselect filename)
-	    (car (mapcar #'find-file-noselect files))))
+	    (mapcar #'find-file-noselect files)))
       (let* ((buf (get-file-buffer filename))
 	     (truename (abbreviate-file-name (file-truename filename)))
 	     (number (nthcdr 10 (file-attributes truename)))