Commit 0344bc5a authored by Miles Bader's avatar Miles Bader
Browse files

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

parent e16a8037
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment