Commit 23179cb9 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el (shr-insert): Use string anchors instead of line anchors.

parent b4593555
2010-10-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-insert): Use string anchors instead of line anchors.
2010-10-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* shr.el: Add headings.
......
......@@ -237,7 +237,7 @@ fit these criteria."
(t
(let ((first t)
column)
(when (and (string-match "^[ \t\n]" text)
(when (and (string-match "\\`[ \t\n]" text)
(not (bolp)))
(insert " "))
(dolist (elem (split-string text))
......@@ -258,7 +258,7 @@ fit these criteria."
(unless shr-start
(setq shr-start (point)))
(insert elem))
(when (and (string-match "[ \t\n]$" text)
(when (and (string-match "[ \t\n]\\'" text)
(not (bolp)))
(insert " "))))))
......
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