[gnus git] branch master updated: m0-7-133-ga6f1723 =1= Make links not shadow local commands

       via  a6f1723bb4f9df9521d8c42a8cf4f9ba0c9dee11 (commit)
      from  e3b69ff71348d605c0d8d45dacfe03c87fb01a8d (commit)


- Log -----------------------------------------------------------------
commit a6f1723bb4f9df9521d8c42a8cf4f9ba0c9dee11
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jun 19 16:03:52 2013 +0200

    Make links not shadow local commands
    
    * shr.el (shr-map): Bind [down-mouse-1] to browse URLs.
    
    * shr.el (shr-urlify): Use `keymap' instead of `local-map' so that we
    don't shadow mode-specific bindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 445ae67..3bd4cb4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-06-19  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* shr.el (shr-urlify): Use `keymap' instead of `local-map' so that we
+	don't shadow mode-specific bindings.
+
 	* eww.el (eww-browse-url): Don't push stuff onto history if there's
 	nothing to push.
 
diff --git a/lisp/shr.el b/lisp/shr.el
index b1c8434..acda83f 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -136,7 +136,7 @@ cid: URL as the argument.")
     (define-key map "z" 'shr-zoom-image)
     (define-key map [tab] 'shr-next-link)
     (define-key map [backtab] 'shr-previous-link)
-    (define-key map [down-mouse-1] 'shr-browse-url)
+    (define-key map [follow-link] 'mouse-face)
     (define-key map "I" 'shr-insert-image)
     (define-key map "u" 'shr-copy-url)
     (define-key map "v" 'shr-browse-url)
@@ -819,7 +819,7 @@ 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)
-	 'local-map shr-map)))
+	 'keymap shr-map)))
 
 (defun shr-encode-url (url)
   "Encode URL."

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    3 +++
 lisp/shr.el    |    4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project