diff options
| author | Joost Kremers <joostkremers@fastmail.fm> | 2014-04-04 14:10:22 +0200 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2014-04-04 14:10:22 +0200 |
| commit | 0de7d982ca1a9baab47c8a272230660b6ddb729b (patch) | |
| tree | f896f40ecbb01377746f4b87f4e165ccc8cc5060 /lisp/textmodes/reftex-toc.el | |
| parent | c72d972c5dee96489a3fd881b239f3f7d0db2385 (diff) | |
| download | emacs-0de7d982ca1a9baab47c8a272230660b6ddb729b.tar.gz | |
Use `window-total-width' instead of `window-width'.
* textmodes/reftex-toc.el (reftex-toc, reftex-re-enlarge): Use
`window-total-width' instead of `window-width'.
Diffstat (limited to 'lisp/textmodes/reftex-toc.el')
| -rw-r--r-- | lisp/textmodes/reftex-toc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el index a35c2e114b4..e164770fa0c 100644 --- a/lisp/textmodes/reftex-toc.el +++ b/lisp/textmodes/reftex-toc.el @@ -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) |