Mercurial > emacs

changeset 44846:b8dcb8b4ef63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't use symbol-name when we don't have to.
author Miles Bader <miles@gnu.org>
date Thu, 25 Apr 2002 15:44:24 +0000
parents 173cb940d81c
children f19c8ff457df
files lisp/cus-edit.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Thu Apr 25 15:39:32 2002 +0000
+++ b/lisp/cus-edit.el	Thu Apr 25 15:44:24 2002 +0000
@@ -1043,8 +1043,7 @@
    (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 @@
    (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)))))