mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(list-faces-display): Signal error if passed a regexp that matches no face name.

Browse Source
This commit is contained in:
Juanma Barranquero 2005-05-31 11:13:08 +00:00
parent 881b07f982
commit d0213ee176
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2005-05-31 Juanma Barranquero <lekktu@gmail.com>
* 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 <rms@gnu.org>

4
lisp/faces.el
View File

@ -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)