[Emacs-diffs] trunk r113599: (shr-urlify): Highlight under mouse.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113599
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2013-07-30 16:27:04 +0200
message:
  (shr-urlify): Highlight under mouse.
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-30 14:25:11 +0000
+++ b/lisp/ChangeLog    2013-07-30 14:27:04 +0000
@@ -1,6 +1,7 @@
 2013-07-30  Lars Magne Ingebrigtsen  <address@hidden>
 
        * net/shr.el (shr-urlify): Put `follow-link' on URLs (bug#14815).
+       (shr-urlify): Highlight under mouse.
 
 2013-07-30  Xue Fuqiao  <address@hidden>
 

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-07-30 14:25:11 +0000
+++ b/lisp/net/shr.el   2013-07-30 14:27:04 +0000
@@ -833,6 +833,7 @@
    (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)