From 05beff88de02f0a70f20c06c5e8af73ef3002bff Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 13 Dec 2014 16:32:17 +0100 Subject: [PATCH] (shr-fold-text): Inhibit state from being altered. --- lisp/ChangeLog | 1 + lisp/net/shr.el | 2 ++ 2 files changed, 3 insertions(+) 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)))) -- 2.39.2