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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5caf37672c7b1c055ef46f85461e8e061617c008..7ec7feb2b84433d1b01f0f3f7c57c11b8f2a3e85 100644 (file)
--- 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 2fff360354659f48f85b1f53f51fdcb26400188c..15dd8dfefa9d56c5f7c3682c7aa1a7c282b8536b 100644 (file)
--- 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))))