Mercurial > emacs
comparison lisp/wid-edit.el @ 21068:cb35e7350402
Use browse-url directly.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Wed, 04 Mar 1998 10:48:19 +0000 |
| parents | 38cee46393d4 |
| children | 901472ec6f29 |
comparison
equal
deleted
inserted
replaced
| 21067:926174c7283a | 21068:cb35e7350402 |
|---|---|
| 1763 "A link to an www page." | 1763 "A link to an www page." |
| 1764 :action 'widget-url-link-action) | 1764 :action 'widget-url-link-action) |
| 1765 | 1765 |
| 1766 (defun widget-url-link-action (widget &optional event) | 1766 (defun widget-url-link-action (widget &optional event) |
| 1767 "Open the url specified by WIDGET." | 1767 "Open the url specified by WIDGET." |
| 1768 (require 'browse-url) | 1768 (browse-url (widget-value widget))) |
| 1769 (funcall browse-url-browser-function (widget-value widget))) | |
| 1770 | 1769 |
| 1771 ;;; The `function-link' Widget. | 1770 ;;; The `function-link' Widget. |
| 1772 | 1771 |
| 1773 (define-widget 'function-link 'link | 1772 (define-widget 'function-link 'link |
| 1774 "A link to an Emacs function." | 1773 "A link to an Emacs function." |