Commit f8774e35 authored by Ted Zlatanov's avatar Ted Zlatanov Committed by Katsumi Yamaoka
Browse files

shr.el (shr-urlify, shr-link): Fix shr-link face.

parent b4289b64
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
......
......@@ -91,9 +91,8 @@ cid: URL as the argument.")
"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 @@ 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) 'face 'shr-link)
(put-text-property start (point) 'shr-url url))
(defun shr-encode-url (url)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment