diff options
Diffstat (limited to 'lisp/net/shr.el')
| -rw-r--r-- | lisp/net/shr.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 6ddf8d2af90..89791511e09 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -143,7 +143,7 @@ cid: URL as the argument.") (define-key map [tab] 'shr-next-link) (define-key map [backtab] 'shr-previous-link) (define-key map [follow-link] 'mouse-face) - (define-key map [mouse-2] 'shr-mouse-browse-url) + (define-key map [mouse-2] 'shr-browse-url) (define-key map "I" 'shr-insert-image) (define-key map "w" 'shr-copy-url) (define-key map "u" 'shr-copy-url) @@ -664,10 +664,11 @@ size, and full-buffer size." (mouse-set-point ev) (shr-browse-url)) -(defun shr-browse-url (&optional external) +(defun shr-browse-url (&optional external mouse-event) "Browse the URL under point. If EXTERNAL, browse the URL using `shr-external-browser'." - (interactive "P") + (interactive (list current-prefix-arg last-nonmenu-event)) + (mouse-set-point mouse-event) (let ((url (get-text-property (point) 'shr-url))) (cond ((not url) @@ -832,6 +833,8 @@ START, and END. Note that START and END should be markers." start (point) (list 'shr-url url 'help-echo (if title (format "%s (%s)" url title) url) + 'follow-link t + 'mouse-face 'highlight 'keymap shr-map))) (defun shr-encode-url (url) |