From d29a536ab9e253f4b02282ac7356422bc6201ac0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 25 Apr 2002 14:21:47 +0000 Subject: [PATCH] (customize-face-other-window, customize-face): Interactively, when point is on text with a face, suggest to customize that face. --- lisp/ChangeLog | 6 ++++++ lisp/cus-edit.el | 26 ++++++++++++++++++++------ 2 files changed, 26 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8deeadac3ae..348ae701550 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-04-25 Gerd Moellmann + + * 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 * replace.el (occur-accumulate-lines): Add optional argument diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index c1b69d5f006..797d0d5b04c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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) -- 2.39.2