[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 05beff8: (shr-fold-text): Inhibit state from being
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 05beff8: (shr-fold-text): Inhibit state from being altered. |
Date: |
Sat, 13 Dec 2014 15:32:21 +0000 |
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 05beff8: (shr-fold-text): Inhibit state from being altered.,
Lars Ingebrigtsen <=