From a59b7025400c0f0ab88ff72eb301f24a179a8714 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 16 Oct 1997 18:22:36 +0000 Subject: [PATCH] (variable-link): New widget. (widget-variable-link-action): New function. (function-link): New widget. (widget-function-link-action): New function. --- lisp/wid-edit.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index a2e48496770..0419d05472a 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -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 -- 2.39.2