Don't use symbol-name when we don't have to.

0344bc5a · Miles Bader · e16a8037 · 0344bc5a
Commit 0344bc5a authored Apr 25, 2002 by Miles Bader
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

lisp/cus-edit.el lisp/cus-edit.el +2 -4

No files found.
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1043,8 +1043,7 @@ suggest to customized that face, if it's customizable."
   (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 @@ suggest to customized that face, if it's customizable."
   (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)))))