+2011-01-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * shr.el (shr-insert-document): Bind shr-width dynamically to
+ window-width if it's nil.
+
2010-12-30 Tassilo Horn <tassilo@member.fsf.org>
* shr.el (shr-width, shr-insert-document): Allow nil as shr-width value
;;; shr.el --- Simple HTML Renderer
-;; Copyright (C) 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: html
;;;###autoload
(defun shr-insert-document (dom)
- (unless (integerp shr-width)
- (set (make-local-variable 'shr-width) (window-width)))
(setq shr-content-cache nil)
(let ((shr-state nil)
- (shr-start nil))
+ (shr-start nil)
+ (shr-width (or shr-width (window-width))))
(shr-descend (shr-transform-dom dom))))
(defun shr-copy-url ()