mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

shr.el (shr-expand-newlines): Fix variable name.

Browse Source
This commit is contained in:
Katsumi Yamaoka 2011-01-25 10:36:00 +00:00
parent d709b79ac8
commit 19e0dbe07d
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2011-01-25 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-expand-newlines): Fix variable name.
2011-01-25 Lars Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-expand-newlines): Make nested boxes work.

10
lisp/gnus/shr.el
View File

@ -663,23 +663,23 @@ ones, in case fg and bg are nil."
(goto-char (point-min))
(while (not (eobp))
(end-of-line)
(when (and (< (setq current-column (current-column)) width)
(< (setq current-column (shr-previous-newline-padding-width
current-column))
(when (and (< (setq column (current-column)) width)
(< (setq column (shr-previous-newline-padding-width column))
width))
(let ((overlay (make-overlay (point) (1+ (point)))))
(overlay-put overlay 'before-string
(concat
(mapconcat
(lambda (overlay)
(let ((string (getf (overlay-properties overlay) 'before-string)))
(let ((string (getf (overlay-properties overlay)
'before-string)))
(if (not string)
""
(overlay-put overlay 'before-string "")
string)))
(overlays-at (point))
"")
(propertize (make-string (- width current-column) ? )
(propertize (make-string (- width column) ? )
'face (list :background color))))))
(forward-line 1)))))