Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 1376:2e0147538471

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-03-24 14:51:45 by stephent] typo fix <87vfy83jmw.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 24 Mar 2003 14:51:46 +0000
parents cfe4bcb9bdd4
children c521eeaafa0d
comparison
equal deleted inserted replaced
1375:0b6d70f7d49c 1376:2e0147538471
2128 2128
2129 (defun widget-url-link-action (widget &optional event) 2129 (defun widget-url-link-action (widget &optional event)
2130 "Open the url specified by WIDGET." 2130 "Open the url specified by WIDGET."
2131 (if-fboundp 'browse-url 2131 (if-fboundp 'browse-url
2132 (browse-url (widget-value widget)) 2132 (browse-url (widget-value widget))
2133 (error 'missing-package "Cannot browse URLs in this Emacs" 'browse-url))) 2133 (error 'missing-package "Cannot browse URLs in this XEmacs" 'browse-url)))
2134 2134
2135 ;;; The `function-link' Widget. 2135 ;;; The `function-link' Widget.
2136 2136
2137 (define-widget 'function-link 'link 2137 (define-widget 'function-link 'link
2138 "A link to an Emacs function." 2138 "A link to an Emacs function."