Re: [Emacs-diffs] trunk r113464: * net/shr.el (shr-mouse-browse-url): New command and keystroke.

[Lars Magne Ingebrigtsen <larsi@gnus.org>]

Stefan Monnier <monnier@IRO.UMontreal.CA> writes:

>> +(defun shr-mouse-browse-url (ev)
>> +  "Browse the URL under the mouse cursor."
>> +  (interactive "e")
>> +  (mouse-set-point ev)
>> +  (shr-browse-url))
>
> You can make that work for RET as well (by using (list
> last-nonmenu-event) instead of "e", IIRC), so you don't need a separate
> command for mouse events.

Hm.  I don't quite follow.  The command it calls reads stuff under
point, so we need the event (to change point) in the mousey command, but
not in the non-mousey command:

(defun shr-browse-url (&optional external)
  "Browse the URL under point.
If EXTERNAL, browse the URL using `shr-external-browser'."
  (interactive "P")
  (let ((url (get-text-property (point) 'shr-url)))


-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/