Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
1984 (defun widget-url-link-help-echo (widget) 1984 (defun widget-url-link-help-echo (widget)
1985 (concat "Visit <URL:" (widget-value widget) ">")) 1985 (concat "Visit <URL:" (widget-value widget) ">"))
1986 1986
1987 (defun widget-url-link-action (widget &optional event) 1987 (defun widget-url-link-action (widget &optional event)
1988 "Open the url specified by WIDGET." 1988 "Open the url specified by WIDGET."
1989 (if (boundp 'browse-url-browser-function) 1989 (if (fboundp 'browse-url)
1990 (funcall browse-url-browser-function (widget-value widget)) 1990 (browse-url (widget-value widget))
1991 (error "Cannot follow URLs in this XEmacs"))) 1991 (error "Cannot follow URLs in this XEmacs")))
1992 1992
1993 ;;; The `function-link' Widget. 1993 ;;; The `function-link' Widget.
1994 1994
1995 (define-widget 'function-link 'link 1995 (define-widget 'function-link 'link