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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9fcf1f4ee502449707a5faeb74531fea9edf5eba..58aa5f825fe5c033ea8f97532519f9f08419da23 100644 (file)
--- 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)))))