Commit 05beff88 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

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

parent 76f9994d
......@@ -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.
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment