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

This commit is contained in:
Miles Bader 2001-10-12 01:58:02 +00:00
parent 8940232b59
commit 07f904a3f2
2 changed files with 18 additions and 1 deletions

View file

@ -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

View file

@ -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)