# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1002851662 0
# Node ID 8f2810b5b5e8a76cfac094139840fd02fd8a6984
# Parent  99f30ac48ec0ec1f648e564b68b8f161aec0ab13
(help-customize-face): New button-type.

diff -r 99f30ac48ec0 -r 8f2810b5b5e8 lisp/help-mode.el
--- a/lisp/help-mode.el	Fri Oct 12 01:53:58 2001 +0000
+++ b/lisp/help-mode.el	Fri Oct 12 01:54:22 2001 +0000
@@ -97,6 +97,14 @@
   '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)