Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
872617ad
Commit
872617ad
authored
Dec 15, 2014
by
Lars Magne Ingebrigtsen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* net/shr.el (shr-fold-text): Don't bug out on zero-length text.
parent
37139317
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
7 deletions
+13
-7
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/net/shr.el
lisp/net/shr.el
+9
-7
No files found.
lisp/ChangeLog
View file @
872617ad
2014-12-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (shr-fold-text): Don't bug out on zero-length text.
2014-12-14 Alan Mackenzie <acm@muc.de>
* lisp/cus-start.el (all): Add fast-but-imprecise-scrolling.
...
...
lisp/net/shr.el
View file @
872617ad
...
...
@@ -414,13 +414,15 @@ size, and full-buffer size."
(
cdr
(
assq
'background-color
shr-stylesheet
))))))))
(
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
))))
(
if
(
zerop
(
length
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
)))))
(
define-inline
shr-char-breakable-p
(
char
)
"Return non-nil if a line can be broken before and after CHAR."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment