summaryrefslogtreecommitdiff
path: root/lisp/window.el
diff options
context:
space:
mode:
authorMartin Rudalics <rudalics@gmx.at>2014-07-29 17:08:30 +0200
committerMartin Rudalics <rudalics@gmx.at>2014-07-29 17:08:30 +0200
commitca74eaca07e52cabd7fd14fdd9e73aa502b2d210 (patch)
tree1ba5c5315c0da3b5f083937e7a7c51ac93c9290f /lisp/window.el
parent6bca885a20f83220f93ad0d96af74fb84ab087d7 (diff)
downloademacs-ca74eaca07e52cabd7fd14fdd9e73aa502b2d210.tar.gz
In window--state-put-2 handle horizontal scroll bars.
* window.el (window--state-put-2): Handle horizontal scroll bars, if present.
Diffstat (limited to 'lisp/window.el')
-rw-r--r--lisp/window.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/window.el b/lisp/window.el
index f55f0657a30..28a2be00af9 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5121,7 +5121,7 @@ value can be also stored on disk and read back in a new session."
(let ((scroll-bars (cdr (assq 'scroll-bars state))))
(set-window-scroll-bars
window (car scroll-bars) (nth 2 scroll-bars)
- (nth 3 scroll-bars)))
+ (or (nth 3 scroll-bars) 0) (nth 5 scroll-bars)))
(set-window-vscroll window (cdr (assq 'vscroll state)))
;; Adjust vertically.
(if (memq window-size-fixed '(t height))