From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Dec 2014 15:32:17 +0000 (+0100)
Subject: (shr-fold-text): Inhibit state from being altered.
X-Git-Tag: emacs-25.0.90~2635^2~88
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05beff88de02f0a70f20c06c5e8af73ef3002bff;p=emacs.git

(shr-fold-text): Inhibit state from being altered.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5caf37672c7..7ec7feb2b84 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
 	* net/shr.el (shr-fold-text): New function.
 	(shr-show-alt-text, shr-urlify, shr-tag-img): Use it to fold long
 	alt/title texts.
+	(shr-fold-text): Inhibit state from being altered.
 
 	* files.el (directory-files-recursively): Really check whether
 	files are symlinks.
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 2fff3603546..15dd8dfefa9 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -415,6 +415,8 @@ size, and full-buffer size."
 (defun shr-fold-text (text)
   (with-temp-buffer
     (let ((shr-indentation 0)
+	  (shr-state nil)
+	  (shr-start nil)
 	  (shr-internal-width (window-width)))
       (shr-insert text)
       (buffer-string))))