summaryrefslogtreecommitdiff
path: root/lisp/cus-edit.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2002-04-25 15:44:24 +0000
committerMiles Bader <miles@gnu.org>2002-04-25 15:44:24 +0000
commit0344bc5a314130e9f5d2c5b0760c5c4893a95cf1 (patch)
treebee717cbffccc7807f341bc7b9af6065e0925197 /lisp/cus-edit.el
parente16a803772f2f31b4dc7736730086c9f596a54e0 (diff)
downloademacs-0344bc5a314130e9f5d2c5b0760c5c4893a95cf1.tar.gz
Don't use symbol-name when we don't have to.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r--lisp/cus-edit.el6
1 files changed, 2 insertions, 4 deletions
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)))))