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

2 files changed, 18 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73a2b6a8a50..19879d3d371 100644
--- 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 79aa2033bc7..d42bd9ff30d 100644
--- 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)