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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c34e304..db850f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/shr.el b/lisp/shr.el
index aa05a06..48aee40 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -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)))))