(help-customize-face): New button-type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73a2b6a8a50e97717cf891052e6b547efb96b2b9..19879d3d371fc19b9404976f34f01143cc2f02d1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2001-10-12  Miles Bader  <miles@gnu.org>
+
+       * help-mode.el (help-customize-face): New button-type.
+       * faces.el (list-faces-display): Fix args to `help-xref-button'.
+       (describe-face): Fix args to `help-xref-button'.
+       Don't switch to help-buffer around call to `help-setup-xref'.
+       Use `help-buffer' instead of hard-wired "*Help*".
+       Require `help-mode'.
+
 2001-10-11  Stefan Monnier  <monnier@cs.yale.edu>
 
        * net/goto-addr.el (goto-address-mail-regexp): Allow + in username.
@@ -26,7 +35,7 @@
        (describe-bindings): Call help-setup-xref earlier.
        (describe-key): Call help-setup-xref.  Fix call to describe-function-1.
        (describe-mode): Don't autoload.  Call help-setup-xref earlier.
-
+       
 2001-10-11  Gerd Moellmann  <gerd@gnu.org>
 
        * master.el (master-mode): Use define-minor-mode instead of

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 79aa2033bc794e5e3d9efe553023845689489512..d42bd9ff30d06bd1c057acbfcd99fb0ddc81c736 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -97,6 +97,14 @@ The format is (FUNCTION ARGS...).")
   'help-echo (purecopy "mouse-2, RET: customize variable")
   'action #'help-button-action)
 
+(define-button-type 'help-customize-face
+  'help-function (lambda (v)
+                  (if help-xref-stack
+                      (pop help-xref-stack))
+                  (customize-face v))
+  'help-echo (purecopy "mouse-2, RET: customize face")
+  'action #'help-button-action)
+
 (define-button-type 'help-function-def
   'help-function (lambda (fun file)
                   (require 'find-func)