# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1019749464 0
# Node ID b8dcb8b4ef638db7ceed5856870bee33ba4182b0
# Parent  173cb940d81c3abfa4839459cc3d17b01242a387
Don't use symbol-name when we don't have to.

diff -r 173cb940d81c -r b8dcb8b4ef63 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Thu Apr 25 15:39:32 2002 +0000
+++ b/lisp/cus-edit.el	Thu Apr 25 15:44:24 2002 +0000
@@ -1043,8 +1043,7 @@
    (list
     (let ((face (get-char-property (point) 'face)))
       (if (and face (symbolp face))
-	  (completing-read (format "Customize face (default `%s'): "
-				   (symbol-name face))
+	  (completing-read (format "Customize face (default `%s'): " face)
 			   obarray 'custom-facep t nil nil (symbol-name face))
 	(completing-read "Customize face (default all): "
 			 obarray 'custom-facep t)))))
@@ -1073,8 +1072,7 @@
    (list
     (let ((face (get-char-property (point) 'face)))
       (if (and face (symbolp face))
-	  (completing-read (format "Customize face (default `%s'): "
-				   (symbol-name face))
+	  (completing-read (format "Customize face (default `%s'): " face)
 			   obarray 'custom-facep t nil nil (symbol-name face))
 	(completing-read "Customize face (default all): "
 			 obarray 'custom-facep t)))))