Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 1736:92dd8587c485

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-10-10 10:51:09 by stephent] fix typo in fn name <871xtlnz8t.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 10 Oct 2003 10:51:11 +0000
parents c521eeaafa0d
children eed841acc858
comparison
equal deleted inserted replaced
1735:c521eeaafa0d 1736:92dd8587c485
2129 (defun widget-url-link-help-echo (widget) 2129 (defun widget-url-link-help-echo (widget)
2130 (concat "Visit <URL:" (widget-value widget) ">")) 2130 (concat "Visit <URL:" (widget-value widget) ">"))
2131 2131
2132 (defun widget-url-link-action (widget &optional event) 2132 (defun widget-url-link-action (widget &optional event)
2133 "Open the url specified by WIDGET." 2133 "Open the url specified by WIDGET."
2134 (if-fboundp 'browse-url 2134 (if (fboundp 'browse-url)
2135 (browse-url (widget-value widget)) 2135 (browse-url (widget-value widget))
2136 (error 'missing-package "Cannot browse URLs in this XEmacs" 'browse-url))) 2136 (error 'missing-package "Cannot browse URLs in this XEmacs" 'browse-url)))
2137 2137
2138 ;;; The `function-link' Widget. 2138 ;;; The `function-link' Widget.
2139 2139