From 4737eec9d737a2d374454095f9400b24769af39c Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Fri, 6 Jul 2012 08:22:56 +0200 Subject: [PATCH] In quit-window always restore window height when it's saved in quit-restore parameter. * window.el (quit-window): Always restore window height when it's saved in quit-restore parameter. --- lisp/ChangeLog | 5 +++++ lisp/window.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a745669d754..482bb7ec489 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-07-06 Dmitry Gutov + + * window.el (quit-window): Always restore window height when + it's saved in quit-restore parameter. + 2012-07-06 Glenn Morris * simple.el (kill-whole-line): Doc tweak. diff --git a/lisp/window.el b/lisp/window.el index b362f40d8ad..f9adf84fc58 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -3069,9 +3069,8 @@ one. If non-nil, reset `quit-restore' parameter to nil." (buffer-live-p (car quad)) (eq (nth 3 quit-restore) buffer)) ;; Show another buffer stored in quit-restore parameter. - (setq resize (with-current-buffer buffer - (and temp-buffer-resize-mode - (/= (nth 3 quad) (window-total-size window))))) + (setq resize (and (integerp (nth 3 quad)) + (/= (nth 3 quad) (window-total-size window)))) (set-window-dedicated-p window nil) (when resize ;; Try to resize WINDOW to its old height but don't signal an -- 2.39.2