From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 16 Oct 1997 18:22:36 +0000 (+0000)
Subject: (variable-link): New widget.
X-Git-Tag: emacs-20.3~3000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a59b7025400c0f0ab88ff72eb301f24a179a8714;p=emacs.git

(variable-link): New widget.
(widget-variable-link-action): New function.
(function-link): New widget.
(widget-function-link-action): New function.
---

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