From: Miles Bader <miles@gnu.org>
Date: Thu, 25 Apr 2002 15:44:24 +0000 (+0000)
Subject: Don't use symbol-name when we don't have to.
X-Git-Tag: ttn-vms-21-2-B4~15409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0344bc5a314130e9f5d2c5b0760c5c4893a95cf1;p=emacs.git

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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9fcf1f4ee50..58aa5f825fe 100644
--- 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)))))