[gnus git] branch master updated: n0-17-13-g2f75742 =1= Add shr-link face for links.

       via  2f7574284c80cbc5c3facd9195d03330e2f8c7d1 (commit)
      from  85d480858c0d355466e10bc7b7c38b18b0563352 (commit)


- Log -----------------------------------------------------------------
commit 2f7574284c80cbc5c3facd9195d03330e2f8c7d1
Author: Ted Zlatanov <[email protected]>
Date:   Tue May 3 09:25:11 2011 -0500

    Add shr-link face for links.
    
    * shr.el: Add shr-link face for links.
    (shr-urlify): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82afd63..4bc2b4b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-05-03  Teodor Zlatanov  <[email protected]>
 
+	* shr.el: Add shr-link face for links.
+	(shr-urlify): Use it.
+
 	* registry.el (registry-insert): Make error message more helpful.
 
 2011-05-02  Lars Magne Ingebrigtsen  <[email protected]>
diff --git a/lisp/shr.el b/lisp/shr.el
index b2e4f1d..d865b2d 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -91,6 +91,12 @@ cid: URL as the argument.")
   "Font for <s> elements."
   :group 'shr)
 
+(defface shr-link '((t (:underline t)
+                       (:foreground "yellow")
+                       (:background "black")))
+  "Font for <s> elements."
+  :group 'shr)
+
 ;;; Internal variables.
 
 (defvar shr-folding-mode nil)
@@ -591,6 +597,7 @@ START, and END.  Note that START and END should be merkers."
    :help-echo (if title (format "%s (%s)" url title) url)
    :keymap shr-map
    url)
+  (put-text-property start (point) 'face 'shr-link)
   (put-text-property start (point) 'shr-url url))
 
 (defun shr-encode-url (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    |    7 +++++++
 2 files changed, 10 insertions(+), 0 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