From 8ba8eec59b955466c7080b268709a6d195fb69ee Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 19 Jul 2013 16:57:28 +0200 Subject: [PATCH] * net/shr.el (shr-mouse-browse-url): New command and keystroke. Fixes: debbugs:14815 --- lisp/ChangeLog | 3 +++ lisp/net/shr.el | 7 +++++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ab2e41f2e4..6b99c5719bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-07-19 Lars Magne Ingebrigtsen + * net/shr.el (shr-mouse-browse-url): New command and keystroke + (bug#14815). + * net/eww.el (eww-process-text-input): Allow inputting when the point is at the start of the line, as the properties aren't front-sticky. diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 83f7596f34f..6ddf8d2af90 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -143,6 +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 "I" 'shr-insert-image) (define-key map "w" 'shr-copy-url) (define-key map "u" 'shr-copy-url) @@ -657,6 +658,12 @@ size, and full-buffer size." (forward-line 1) (goto-char end)))))) +(defun shr-mouse-browse-url (ev) + "Browse the URL under the mouse cursor." + (interactive "e") + (mouse-set-point ev) + (shr-browse-url)) + (defun shr-browse-url (&optional external) "Browse the URL under point. If EXTERNAL, browse the URL using `shr-external-browser'." -- 2.39.2