Commit 19e0dbe0 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

parent d709b79a
2011-01-25 Katsumi Yamaoka <>
* shr.el (shr-expand-newlines): Fix variable name.
2011-01-25 Lars Ingebrigtsen <>
* shr.el (shr-expand-newlines): Make nested boxes work.
......@@ -663,23 +663,23 @@ ones, in case fg and bg are nil."
(goto-char (point-min))
(while (not (eobp))
(when (and (< (setq current-column (current-column)) width)
(< (setq current-column (shr-previous-newline-padding-width
(when (and (< (setq column (current-column)) width)
(< (setq column (shr-previous-newline-padding-width column))
(let ((overlay (make-overlay (point) (1+ (point)))))
(overlay-put overlay 'before-string
(lambda (overlay)
(let ((string (getf (overlay-properties overlay) 'before-string)))
(let ((string (getf (overlay-properties overlay)
(if (not string)
(overlay-put overlay 'before-string "")
(overlays-at (point))
(propertize (make-string (- width current-column) ? )
(propertize (make-string (- width column) ? )
'face (list :background color))))))
(forward-line 1)))))
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