changeset 39800:8f2810b5b5e8

(help-customize-face): New button-type.
author Miles Bader <miles@gnu.org>
date Fri, 12 Oct 2001 01:54:22 +0000
parents 99f30ac48ec0
children 15e8f4bb24a0
files lisp/help-mode.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)