+2011-05-06 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * shr.el (shr-urlify, shr-link): Fix shr-link face.
+
2011-05-05 Teodor Zlatanov <tzz@lifelogs.com>
* shr.el (shr-urlify, shr-link): Still broken but at least doesn't
"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)
: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)