Mercurial > emacs
comparison lisp/net/browse-url.el @ 58937:48de6e40fcfc
(browse-url-url-at-point): Add autoload.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Dec 2004 19:33:51 +0000 |
| parents | 6793f695fda7 |
| children | 84bb59b0b21d fb79180b618d |
comparison
equal
deleted
inserted
replaced
| 58936:92b24762a33f | 58937:48de6e40fcfc |
|---|---|
| 573 :group 'browse-url) | 573 :group 'browse-url) |
| 574 | 574 |
| 575 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 575 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 576 ;; URL input | 576 ;; URL input |
| 577 | 577 |
| 578 ;;;###autoload | |
| 578 (defun browse-url-url-at-point () | 579 (defun browse-url-url-at-point () |
| 579 (let ((url (thing-at-point 'url))) | 580 (let ((url (thing-at-point 'url))) |
| 580 (set-text-properties 0 (length url) nil url) | 581 (set-text-properties 0 (length url) nil url) |
| 581 url)) | 582 url)) |
| 582 | 583 |