mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
Interactively, when point is on text with a face, suggest to
customize that face.
This commit is contained in:
Gerd Moellmann 2002-04-25 14:21:47 +00:00
parent 6f4426332d
commit d29a536ab9
2 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2002-04-25 Gerd Moellmann <gerd@gnu.org>
* cus-edit.el (customize-face-other-window, customize-face):
Interactively, when point is on text with a face, suggest to
customize that face.
2002-04-24 Colin Walters <walters@verbum.org>
* replace.el (occur-accumulate-lines): Add optional argument

26
lisp/cus-edit.el
View File

@ -1035,9 +1035,16 @@ Show the buffer in another window, but don't select it."
;;;###autoload
(defun customize-face (&optional symbol)
"Customize SYMBOL, which should be a face name or nil.
If SYMBOL is nil, customize all faces."
(interactive (list (completing-read "Customize face: (default all) "
obarray 'custom-facep t)))
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))))))
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
(custom-buffer-create (custom-sort-items
(mapcar (lambda (symbol)
@ -1055,9 +1062,16 @@ If SYMBOL is nil, customize all faces."
;;;###autoload
(defun customize-face-other-window (&optional symbol)
"Show customization buffer for face SYMBOL in other window."
(interactive (list (completing-read "Customize face: "
obarray 'custom-facep t)))
"Show customization buffer for face SYMBOL in other window.
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))))))
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
()
(if (stringp symbol)