# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915375812 0
# Node ID f81108c276694f4c405d9abcf863cbae1803a16c
# Parent  f9ccd26b862724a4acd8fdac61fddd9eca4dd730
(find-file-noselect): Let /: suppress wildcard matching.
Error if wildcard matches no files.

diff -r f9ccd26b8627 -r f81108c27669 lisp/files.el
--- a/lisp/files.el	Sun Jan 03 02:05:10 1999 +0000
+++ b/lisp/files.el	Sun Jan 03 15:03:32 1999 +0000
@@ -891,9 +891,12 @@
 			    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))