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 | |
| 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'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-toc.el | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c457ba6282..e428019139b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-04-04 Joost Kremers <joostkremers@fastmail.fm> (tiny change) | ||
| 2 | |||
| 3 | * textmodes/reftex-toc.el (reftex-toc, reftex-re-enlarge): Use | ||
| 4 | `window-total-width' instead of `window-width'. | ||
| 5 | |||
| 1 | 2014-04-03 Daniel Colascione <dancol@dancol.org> | 6 | 2014-04-03 Daniel Colascione <dancol@dancol.org> |
| 2 | 7 | ||
| 3 | * subr.el (set-transient-map): Remove rms's workaround entirely; | 8 | * subr.el (set-transient-map): Remove rms's workaround entirely; |
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) |