diff options
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 891 | filename)) | 891 | filename)) |
| 892 | (error "%s is a directory" filename)) | 892 | (error "%s is a directory" filename)) |
| 893 | (if (and find-file-wildcards | 893 | (if (and find-file-wildcards |
| 894 | (not (string-match "\\`/:" filename)) | ||
| 894 | (string-match "[[*?]" filename)) | 895 | (string-match "[[*?]" filename)) |
| 895 | (let ((files (file-expand-wildcards filename t)) | 896 | (let ((files (file-expand-wildcards filename t)) |
| 896 | (find-file-wildcards nil)) | 897 | (find-file-wildcards nil)) |
| 898 | (if (null files) | ||
| 899 | (error "No files match `%s'" filename)) | ||
| 897 | (car (mapcar #'(lambda (fn) (find-file-noselect fn)) | 900 | (car (mapcar #'(lambda (fn) (find-file-noselect fn)) |
| 898 | files))) | 901 | files))) |
| 899 | (let* ((buf (get-file-buffer filename)) | 902 | (let* ((buf (get-file-buffer filename)) |