(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."
+(defun shr--have-one-fringe-p ()
+ "Return non-nil if we know at least one of the fringes has non-zero width."
(and (fboundp 'fringe-columns)
(or (not (zerop (fringe-columns 'right)))
(not (zerop (fringe-columns 'left))))))
(if (not shr-use-fonts)
(- (window-body-width) 1
(if (and (null shr-width)
- (not (have-fringes-p)))
+ (not (shr--have-one-fringe-p)))
0
1))
(- (window-body-width nil t)
(* 2 (frame-char-width))
(if (and (null shr-width)
- (not (have-fringes-p)))
+ (not (shr--have-one-fringe-p)))
(* (frame-char-width) 2)
0))))))
(shr-descend dom)
;; to usurp one column for the
;; continuation glyph.
(if (and (null shr-width)
- (not (have-fringes-p)))
+ (not (shr--have-one-fringe-p)))
(* (frame-char-width) 2)
0))))
(shr-insert text)