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

Interactively, when point is on text with a face, suggest to
customize that face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8deeadac3aeabd683858eec8f665a1372c87c5a3..348ae7015504ecd22043d44747747961c5da496f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index c1b69d5f006383febdfab894ddc66b51f2628a01..797d0d5b04c8a3baa86648597435de223d007340 100644 (file)
--- 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)