Skip to content

GitLab

Commit 9463abf4 authored by Eric Hanchrow's avatar Eric Hanchrow Committed by John Wiegley
Browse files

shr: don't invoke unbound function (Bug#21895) 

* lisp/net/shr.el (have-fringes-p): New function.
  (shr-insert-document, shr-fill-text): Use it.
parent 6e5186e8
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 10 deletions
lisp/net/shr.el
View file @ 9463abf4
......@@ -203,6 +203,13 @@ cid: URL as the argument.")
(goto-char begin)
(shr-insert-document dom))))
(defun have-fringes-p ()
"Return t if fringe-columns is bound, and either (fringe-columns 'left) or
\(fringe-columns 'right) returns nonzero."
(and (fboundp 'fringe-columns)
(or (not (zerop (fringe-columns 'right)))
(not (zerop (fringe-columns 'left))))))
;;;###autoload
(defun shr-insert-document (dom)
"Render the parsed document DOM into the current buffer.
......@@ -230,19 +237,13 @@ DOM should be a parse tree as generated by
(if (not shr-use-fonts)
(- (window-body-width) 1
(if (and (null shr-width)
(or (zerop
(fringe-columns 'right))
(zerop
(fringe-columns 'left))))
(not (have-fringes-p)))
0
1))
(- (window-body-width nil t)
(* 2 (frame-char-width))
(if (and (null shr-width)
(or (zerop
(fringe-columns 'right))
(zerop
(fringe-columns 'left))))
(not (have-fringes-p)))
(* (frame-char-width) 2)
0))))))
(shr-descend dom)
......@@ -466,8 +467,7 @@ size, and full-buffer size."
;; to usurp one column for the
;; continuation glyph.
(if (and (null shr-width)
(or (zerop (fringe-columns 'right))
(zerop (fringe-columns 'left))))
(not (have-fringes-p)))
(* (frame-char-width) 2)
0))))
(shr-insert text)
......
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