From 86659cd4de41d99c416d142713cb6a1e1e10665b Mon Sep 17 00:00:00 2001 From: Joost Kremers Date: Mon, 16 Feb 2015 23:29:26 +0100 Subject: [PATCH] Use `window-total-width' instead of `window-width'. --- popwin.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/popwin.el b/popwin.el index 457321a..377b7ae 100644 --- a/popwin.el +++ b/popwin.el @@ -271,7 +271,7 @@ which is a node of `window-tree' and OUTLINE which is a node of (defun popwin:create-popup-window-1 (window size position) "Create a new window with SIZE at POSITION of WINDOW. The return value is a list of a master window and the popup window." - (let ((width (window-width window)) + (let ((width (window-total-width window)) (height (window-height window))) (ecase position ((left :left) @@ -304,7 +304,7 @@ window-configuration." (vfactor 1)) (popwin:save-selected-window (delete-other-windows root-win)) - (let ((root-width (window-width root-win)) + (let ((root-width (window-total-width root-win)) (root-height (window-height root-win))) (when adjust (if (floatp size)