From 0344bc5a314130e9f5d2c5b0760c5c4893a95cf1 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 25 Apr 2002 15:44:24 +0000 Subject: [PATCH] Don't use symbol-name when we don't have to. --- lisp/cus-edit.el | 6 ++---- 1 file 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))))) -- 2.39.5