diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-31 11:13:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-31 11:13:08 +0000 |
| commit | d0213ee17642d54c4779d3078e3188a226e41c08 (patch) | |
| tree | 24921194d12e18122f4e2c67f66eae3aeac104e0 /lisp/faces.el | |
| parent | 881b07f982f000b5be01609238ee2daf08c93936 (diff) | |
| download | emacs-d0213ee17642d54c4779d3078e3188a226e41c08.tar.gz | |
(list-faces-display): Signal error if passed a regexp that matches no face name.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 27905af734c..c89001482ac 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) |