Mercurial > emacs

changeset 62922:1928ddb1df53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-faces-display): Signal error if passed a regexp that matches no face name.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 31 May 2005 11:10:43 +0000
parents 81e6a49064ec
children 28537157e07b
files lisp/faces.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue May 31 09:45:17 2005 +0000
+++ b/lisp/faces.el	Tue May 31 11:10:43 2005 +0000
@@ -1163,7 +1163,9 @@
                   (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)