aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoost Kremers2014-04-04 14:10:22 +0200
committerTassilo Horn2014-04-04 14:10:22 +0200
commit0de7d982ca1a9baab47c8a272230660b6ddb729b (patch)
treef896f40ecbb01377746f4b87f4e165ccc8cc5060
parentc72d972c5dee96489a3fd881b239f3f7d0db2385 (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/textmodes/reftex-toc.el8
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 @@
12014-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
12014-04-03 Daniel Colascione <dancol@dancol.org> 62014-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)