Skip to content

GitLab

Commit e16a8037 authored by Miles Bader's avatar Miles Bader
Browse files

(customize-face, customize-face-other-window): 

Use default instead of initial-input for suggested face.
parent 4d3eda1c
Hide whitespace changes
Inline Side-by-side
Showing with 21 additions and 10 deletions
lisp/ChangeLog
View file @ e16a8037
2002-04-26 Miles Bader <miles@gnu.org>
* cus-edit.el (customize-face, customize-face-other-window):
Use default instead of initial-input for suggested face.
2002-04-25 Gerd Moellmann <gerd@gnu.org>
* cus-edit.el (customize-face-other-window, customize-face):
......
lisp/cus-edit.el
View file @ e16a8037
......@@ -1040,11 +1040,14 @@ If SYMBOL is nil, customize all faces.
Interactively, when point is on text which has a face specified,
suggest to customized that face, if it's customizable."
(interactive
(list (completing-read "Customize face (default all): "
obarray 'custom-facep t
(let ((face (get-char-property (point) 'face)))
(when (and face (symbolp face))
(symbol-name face))))))
(list
(let ((face (get-char-property (point) 'face)))
(if (and face (symbolp face))
(completing-read (format "Customize face (default `%s'): "
(symbol-name face))
obarray 'custom-facep t nil nil (symbol-name face))
(completing-read "Customize face (default all): "
obarray 'custom-facep t)))))
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
(custom-buffer-create (custom-sort-items
(mapcar (lambda (symbol)
......@@ -1067,11 +1070,14 @@ suggest to customized that face, if it's customizable."
Interactively, when point is on text which has a face specified,
suggest to customized that face, if it's customizable."
(interactive
(list (completing-read "Customize face: "
obarray 'custom-facep t
(let ((face (get-char-property (point) 'face)))
(when (and face (symbolp face))
(symbol-name face))))))
(list
(let ((face (get-char-property (point) 'face)))
(if (and face (symbolp face))
(completing-read (format "Customize face (default `%s'): "
(symbol-name face))
obarray 'custom-facep t nil nil (symbol-name face))
(completing-read "Customize face (default all): "
obarray 'custom-facep t)))))
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
()
(if (stringp symbol)
......
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