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

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113464
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14815
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-19 16:57:28 +0200
message:
  * net/shr.el (shr-mouse-browse-url): New command and keystroke.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-19 14:44:16 +0000
+++ b/lisp/ChangeLog    2013-07-19 14:57:28 +0000
@@ -1,5 +1,8 @@
 2013-07-19  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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.

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-07-19 14:07:43 +0000
+++ b/lisp/net/shr.el   2013-07-19 14:57:28 +0000
@@ -143,6 +143,7 @@
     (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 @@
            (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'."