+2010-10-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * shr.el (shr-current-column): Remove buggy and unnecessary function.
+
2010-10-13 Julien Danjou <julien@danjou.info>
* shr.el (shr-width): Make shr-width a defcustom with default to
(unless shr-start
(setq shr-start (point)))
(insert elem)
- (when (> (shr-current-column) shr-width)
+ (when (> (current-column) shr-width)
(if (not (search-backward " " (line-beginning-position) t))
(insert "\n")
(delete-char 1)
(or found
(end-of-line))))
-(defun shr-current-column ()
- (let ((column 0))
- (save-excursion
- (beginning-of-line)
- (while (not (eolp))
- (incf column (char-width (following-char)))
- (forward-char 1)))
- column))
-
(defun shr-ensure-newline ()
(unless (zerop (current-column))
(insert "\n")))