[Emacs-diffs] master 05beff8: (shr-fold-text): Inhibit state from being altered.

[Lars Ingebrigtsen]

branch: master
commit 05beff88de02f0a70f20c06c5e8af73ef3002bff
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    (shr-fold-text): Inhibit state from being altered.
---
 lisp/ChangeLog  |    1 +
 lisp/net/shr.el |    2 ++
 2 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5caf376..7ec7feb 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 2fff360..15dd8df 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))))