Mercurial > emacs
changeset 23983:f81108c27669
(find-file-noselect): Let /: suppress wildcard matching.
Error if wildcard matches no files.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Jan 1999 15:03:32 +0000 |
| parents | f9ccd26b8627 |
| children | 2bc2b506f787 |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))