Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use window-total-width' instead of window-width'.

Browse source 
* textmodes/reftex-toc.el (reftex-toc, reftex-re-enlarge): Use
`window-total-width' instead of `window-width'.
This commit is contained in:
Joost Kremers 2014-04-04 14:10:22 +02:00 committed by Tassilo Horn
parent c72d972c5d
commit 0de7d982ca
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-04-04 Joost Kremers <joostkremers@fastmail.fm> (tiny change)
* textmodes/reftex-toc.el (reftex-toc, reftex-re-enlarge): Use
`window-total-width' instead of `window-width'.
2014-04-03 Daniel Colascione <dancol@dancol.org>
* subr.el (set-transient-map): Remove rms's workaround entirely;

8
lisp/textmodes/reftex-toc.el
View file

@ -241,13 +241,13 @@ When called with a raw C-u prefix, rescan the document first."
(< (window-height) (* 2 window-min-height)))
(delete-other-windows))
(setq reftex-last-window-width (window-width)
(setq reftex-last-window-width (window-total-width)
reftex-last-window-height (window-height)) ; remember
(unless unsplittable
(if reftex-toc-split-windows-horizontally
(split-window-right
(floor (* (window-width)
(floor (* (window-total-width)
reftex-toc-split-windows-fraction)))
(split-window-below
(floor (* (window-height)
@ -374,8 +374,8 @@ SPC=view TAB=goto RET=goto+hide [q]uit [r]escan [l]abels [f]ollow [x]r [?]Help
(defun reftex-re-enlarge ()
"Enlarge window to a remembered size."
(let ((count (if reftex-toc-split-windows-horizontally
(- (or reftex-last-window-width (window-width))
(window-width))
(- (or reftex-last-window-width (window-total-width))
(window-total-width))
(- (or reftex-last-window-height (window-height))
(window-height)))))
(when (> count 0)