changeset 44841:ca88dc883a8d

(customize-face-other-window, customize-face): Interactively, when point is on text with a face, suggest to customize that face.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 25 Apr 2002 14:20:46 +0000
parents f0fef1c2081f
children 1fe8ce420ab2
files lisp/cus-edit.el
diffstat 1 files changed, 20 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Thu Apr 25 12:15:14 2002 +0000
+++ b/lisp/cus-edit.el	Thu Apr 25 14:20:46 2002 +0000
@@ -1035,9 +1035,16 @@
 ;;;###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 @@
 
 ;;;###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)