changeset 85297:01f68ac2fb98

(describe-face): Allow handling a string as the face name.
author Juri Linkov <juri@jurta.org>
date Sun, 14 Oct 2007 20:40:31 +0000
parents 86224da3fd17
children 5f8ed0fbae95
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sun Oct 14 19:45:17 2007 +0000
+++ b/lisp/faces.el	Sun Oct 14 20:40:31 2007 +0000
@@ -1285,6 +1285,7 @@
       (save-excursion
 	(set-buffer standard-output)
 	(dolist (f face)
+	  (if (stringp f) (setq f (intern f)))
 	  (insert "Face: " (symbol-name f))
 	  (if (not (facep f))
 	      (insert "   undefined face.\n")