procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix last change in shr.el

Browse source 
* lisp/net/shr.el (shr--have-one-fringe-p): Rename from
have-fringes-p.  All callers changed.  Doc fix.  (Bug#21895)
This commit is contained in:
Eli Zaretskii 2015-11-13 11:23:35 +02:00
parent 508e77b763
commit 35f5afbca1
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/net/shr.el
View file

@ -203,9 +203,8 @@ 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."
(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))))))
@ -237,13 +236,13 @@ DOM should be a parse tree as generated by
(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)
@ -467,7 +466,7 @@ size, and full-buffer size."
;; 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)