# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1192394431 0
# Node ID 01f68ac2fb98f9a171629d6ca538eac59067586e
# Parent  86224da3fd17613aa5b113aafe8fff72eb293916
(describe-face): Allow handling a string as the face name.

diff -r 86224da3fd17 -r 01f68ac2fb98 lisp/faces.el
--- 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")