mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(variable-link): New widget.

Browse source 
(widget-variable-link-action): New function.
(function-link): New widget.
(widget-function-link-action): New function.
This commit is contained in:
Karl Heuer 1997-10-16 18:22:36 +00:00
parent cae551977c
commit a59b702540
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/wid-edit.el
View file

@ -1750,6 +1750,26 @@ If END is omitted, it defaults to the length of LIST."
(require 'browse-url)
(funcall browse-url-browser-function (widget-value widget)))
;;; The `function-link' Widget.
(define-widget 'function-link 'link
"A link to an Emacs function."
:action 'widget-function-link-action)
(defun widget-function-link-action (widget &optional event)
"Show the function specified by WIDGET."
(describe-function (widget-value widget)))
;;; The `variable-link' Widget.
(define-widget 'variable-link 'link
"A link to an Emacs variable."
:action 'widget-variable-link-action)
(defun widget-variable-link-action (widget &optional event)
"Show the variable specified by WIDGET."
(describe-variable (widget-value widget)))
;;; The `file-link' Widget.
(define-widget 'file-link 'link