diff options
| author | Joost Kremers | 2014-04-04 14:10:22 +0200 |
|---|---|---|
| committer | Tassilo Horn | 2014-04-04 14:10:22 +0200 |
| commit | 0de7d982ca1a9baab47c8a272230660b6ddb729b (patch) | |
| tree | f896f40ecbb01377746f4b87f4e165ccc8cc5060 /lisp/textmodes | |
| parent | c72d972c5dee96489a3fd881b239f3f7d0db2385 (diff) | |
| download | emacs-0de7d982ca1a9baab47c8a272230660b6ddb729b.tar.gz emacs-0de7d982ca1a9baab47c8a272230660b6ddb729b.zip | |
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')
| -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." | |||
| 241 | (< (window-height) (* 2 window-min-height))) | 241 | (< (window-height) (* 2 window-min-height))) |
| 242 | (delete-other-windows)) | 242 | (delete-other-windows)) |
| 243 | 243 | ||
| 244 | (setq reftex-last-window-width (window-width) | 244 | (setq reftex-last-window-width (window-total-width) |
| 245 | reftex-last-window-height (window-height)) ; remember | 245 | reftex-last-window-height (window-height)) ; remember |
| 246 | 246 | ||
| 247 | (unless unsplittable | 247 | (unless unsplittable |
| 248 | (if reftex-toc-split-windows-horizontally | 248 | (if reftex-toc-split-windows-horizontally |
| 249 | (split-window-right | 249 | (split-window-right |
| 250 | (floor (* (window-width) | 250 | (floor (* (window-total-width) |
| 251 | reftex-toc-split-windows-fraction))) | 251 | reftex-toc-split-windows-fraction))) |
| 252 | (split-window-below | 252 | (split-window-below |
| 253 | (floor (* (window-height) | 253 | (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 | |||
| 374 | (defun reftex-re-enlarge () | 374 | (defun reftex-re-enlarge () |
| 375 | "Enlarge window to a remembered size." | 375 | "Enlarge window to a remembered size." |
| 376 | (let ((count (if reftex-toc-split-windows-horizontally | 376 | (let ((count (if reftex-toc-split-windows-horizontally |
| 377 | (- (or reftex-last-window-width (window-width)) | 377 | (- (or reftex-last-window-width (window-total-width)) |
| 378 | (window-width)) | 378 | (window-total-width)) |
| 379 | (- (or reftex-last-window-height (window-height)) | 379 | (- (or reftex-last-window-height (window-height)) |
| 380 | (window-height))))) | 380 | (window-height))))) |
| 381 | (when (> count 0) | 381 | (when (> count 0) |