(Electric-pop-up-window): Don't shrink the window if it's already big

enough.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/electric.el b/lisp/electric.el
index 60a551291a7..289b6ecd147 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -153,8 +153,10 @@
              (setq win (selected-window)))
             (t
              (switch-to-buffer buf)))
-      (fit-window-to-buffer win max-height)
+      ;; Don't shrink the window, but expand it if necessary.
       (goto-char (point-min))
+      (unless (= (point-max) (window-end win))
+        (fit-window-to-buffer win max-height))
       win)))
 
 (provide 'electric)