diff options
author | Juanma Barranquero <[email protected]> | 2005-05-31 11:13:08 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2005-05-31 11:13:08 +0000 |
commit | d0213ee17642d54c4779d3078e3188a226e41c08 (patch) | |
tree | 24921194d12e18122f4e2c67f66eae3aeac104e0 | |
parent | 881b07f982f000b5be01609238ee2daf08c93936 (diff) |
(list-faces-display): Signal error if passed a regexp that matches no face name.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/faces.el | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 57abd9327b..b99b13015e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2005-05-31 Juanma Barranquero <[email protected]> + * faces.el (list-faces-display): Signal error if passed a regexp + that matches no face name. + * simple.el (filter-buffer-substring): Fix typo in docstring. 2005-05-31 Richard M. Stallman <[email protected]> diff --git a/lisp/faces.el b/lisp/faces.el index 27905af734..c89001482a 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1163,7 +1163,9 @@ arg, prompt for a regular expression." (mapcar (lambda (f) (when (string-match regexp (symbol-name f)) f)) - faces)))) + faces))) + (unless faces + (error "No faces matching \"%s\"" regexp))) (with-output-to-temp-buffer "*Faces*" (save-excursion (set-buffer standard-output) |