[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104145: shr.el (shr-urlify, shr-link
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104145: shr.el (shr-urlify, shr-link): Fix shr-link face. |
Date: |
Fri, 06 May 2011 23:33:12 +0000 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104145
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-06 23:33:12 +0000
message:
shr.el (shr-urlify, shr-link): Fix shr-link face.
modified:
lisp/gnus/ChangeLog
lisp/gnus/shr.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-05-05 22:12:41 +0000
+++ b/lisp/gnus/ChangeLog 2011-05-06 23:33:12 +0000
@@ -1,3 +1,7 @@
+2011-05-06 Teodor Zlatanov <address@hidden>
+
+ * shr.el (shr-urlify, shr-link): Fix shr-link face.
+
2011-05-05 Teodor Zlatanov <address@hidden>
* shr.el (shr-urlify, shr-link): Still broken but at least doesn't
=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el 2011-05-05 22:12:41 +0000
+++ b/lisp/gnus/shr.el 2011-05-06 23:33:12 +0000
@@ -91,9 +91,8 @@
"Font for <s> elements."
:group 'shr)
-(defface shr-link '((t (:underline t)
- (:foreground "yellow")
- (:background "black")))
+(defface shr-link
+ '((t (:underline t :foreground "yellow" :background "black")))
"Font for link elements."
:group 'shr)
@@ -597,7 +596,7 @@
: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) 'face 'shr-link)
(put-text-property start (point) 'shr-url url))
(defun shr-encode-url (url)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104145: shr.el (shr-urlify, shr-link): Fix shr-link face.,
Katsumi Yamaoka <=