Mercurial > hg > xemacs-beta

comparison lisp/custom/wid-edit.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents acd284d43ca1
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
1774 (defun widget-url-link-action (widget &optional event) 1774 (defun widget-url-link-action (widget &optional event)
1775 "Open the url specified by WIDGET." 1775 "Open the url specified by WIDGET."
1776 (require 'browse-url) 1776 (require 'browse-url)
1777 (funcall browse-url-browser-function (widget-value widget))) 1777 (funcall browse-url-browser-function (widget-value widget)))
1778 1778
1779 ;;; The `function-link' Widget.
1780
1781 (define-widget 'function-link 'link
1782 "A link to an Emacs function."
1783 :action 'widget-function-link-action)
1784
1785 (defun widget-function-link-action (widget &optional event)
1786 "Show the function specified by WIDGET."
1787 (describe-function (widget-value widget)))
1788
1789 ;;; The `variable-link' Widget.
1790
1791 (define-widget 'variable-link 'link
1792 "A link to an Emacs variable."
1793 :action 'widget-variable-link-action)
1794
1795 (defun widget-variable-link-action (widget &optional event)
1796 "Show the variable specified by WIDGET."
1797 (describe-variable (widget-value widget)))
1798
1779 ;;; The `file-link' Widget. 1799 ;;; The `file-link' Widget.
1780 1800
1781 (define-widget 'file-link 'link 1801 (define-widget 'file-link 'link
1782 "A link to a file." 1802 "A link to a file."
1783 :action 'widget-file-link-action) 1803 :action 'widget-file-link-action)