Mercurial > emacs
comparison lisp/wid-edit.el @ 20073:74c909547230
(variable-link): New widget.
(widget-variable-link-action): New function.
(function-link): New widget.
(widget-function-link-action): New function.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 16 Oct 1997 18:22:36 +0000 |
| parents | 697360ed5e4b |
| children | 38cee46393d4 |
comparison
equal
deleted
inserted
replaced
| 20072:92d2c2e3b3f3 | 20073:74c909547230 |
|---|---|
| 1748 (defun widget-url-link-action (widget &optional event) | 1748 (defun widget-url-link-action (widget &optional event) |
| 1749 "Open the url specified by WIDGET." | 1749 "Open the url specified by WIDGET." |
| 1750 (require 'browse-url) | 1750 (require 'browse-url) |
| 1751 (funcall browse-url-browser-function (widget-value widget))) | 1751 (funcall browse-url-browser-function (widget-value widget))) |
| 1752 | 1752 |
| 1753 ;;; The `function-link' Widget. | |
| 1754 | |
| 1755 (define-widget 'function-link 'link | |
| 1756 "A link to an Emacs function." | |
| 1757 :action 'widget-function-link-action) | |
| 1758 | |
| 1759 (defun widget-function-link-action (widget &optional event) | |
| 1760 "Show the function specified by WIDGET." | |
| 1761 (describe-function (widget-value widget))) | |
| 1762 | |
| 1763 ;;; The `variable-link' Widget. | |
| 1764 | |
| 1765 (define-widget 'variable-link 'link | |
| 1766 "A link to an Emacs variable." | |
| 1767 :action 'widget-variable-link-action) | |
| 1768 | |
| 1769 (defun widget-variable-link-action (widget &optional event) | |
| 1770 "Show the variable specified by WIDGET." | |
| 1771 (describe-variable (widget-value widget))) | |
| 1772 | |
| 1753 ;;; The `file-link' Widget. | 1773 ;;; The `file-link' Widget. |
| 1754 | 1774 |
| 1755 (define-widget 'file-link 'link | 1775 (define-widget 'file-link 'link |
| 1756 "A link to a file." | 1776 "A link to a file." |
| 1757 :action 'widget-file-link-action) | 1777 :action 'widget-file-link-action) |