From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 31 May 2005 11:13:08 +0000 (+0000)
Subject: (list-faces-display): Signal error if passed a regexp that matches no face name.
X-Git-Tag: emacs-pretest-22.0.90~9393
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0213ee17642d54c4779d3078e3188a226e41c08;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57abd9327bb..b99b13015e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
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)