From d0213ee17642d54c4779d3078e3188a226e41c08 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 31 May 2005 11:13:08 +0000 Subject: [PATCH] (list-faces-display): Signal error if passed a regexp that matches no face name. --- lisp/ChangeLog | 3 +++ lisp/faces.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + * 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 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) -- 2.11.4.GIT