Mercurial > emacs
comparison lisp/faces.el @ 62922:1928ddb1df53
(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 | de74a397ff54 |
| children | 2a5dbdf6d22a |
comparison
equal
deleted
inserted
replaced
| 62921:81e6a49064ec | 62922:1928ddb1df53 |
|---|---|
| 1161 (setq faces | 1161 (setq faces |
| 1162 (delq nil | 1162 (delq nil |
| 1163 (mapcar (lambda (f) | 1163 (mapcar (lambda (f) |
| 1164 (when (string-match regexp (symbol-name f)) | 1164 (when (string-match regexp (symbol-name f)) |
| 1165 f)) | 1165 f)) |
| 1166 faces)))) | 1166 faces))) |
| 1167 (unless faces | |
| 1168 (error "No faces matching \"%s\"" regexp))) | |
| 1167 (with-output-to-temp-buffer "*Faces*" | 1169 (with-output-to-temp-buffer "*Faces*" |
| 1168 (save-excursion | 1170 (save-excursion |
| 1169 (set-buffer standard-output) | 1171 (set-buffer standard-output) |
| 1170 (setq truncate-lines t) | 1172 (setq truncate-lines t) |
| 1171 (insert | 1173 (insert |