From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Jan 1999 15:03:32 +0000 (+0000)
Subject: (find-file-noselect): Let /: suppress wildcard matching.
X-Git-Tag: emacs-20.4~966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f91fe6045daa4157db44a7fd11fd91f209778ee6;p=emacs.git

(find-file-noselect): Let /: suppress wildcard matching.
Error if wildcard matches no files.
---

diff --git a/lisp/files.el b/lisp/files.el
index c4e16fae252..ac9153bc87c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -891,9 +891,12 @@ Optional second arg RAWFILE non-nil means the file is read literally."
 			    filename))
 	(error "%s is a directory" filename))
     (if (and find-file-wildcards
+	     (not (string-match "\\`/:" filename))
 	     (string-match "[[*?]" filename))
 	(let ((files (file-expand-wildcards filename t))
 	      (find-file-wildcards nil))
+	  (if (null files)
+	      (error "No files match `%s'" filename))
 	  (car (mapcar #'(lambda (fn) (find-file-noselect fn))
 		       files)))
       (let* ((buf (get-file-buffer filename))