X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/957733f454c75b14da84e8e0732459873622394d..ab7d7f3c0cad5145d6e171ff29b8443bd34706cc:/packages/hydra/lv.el

diff --git a/packages/hydra/lv.el b/packages/hydra/lv.el
index e4425a2dc..23d2c3071 100644
--- a/packages/hydra/lv.el
+++ b/packages/hydra/lv.el
@@ -62,8 +62,9 @@ Only the background color is significant."
           buf)
       (prog1 (setq lv-wnd
                    (select-window
-                    (split-window
-                     (frame-root-window) -1 'below)))
+                    (let ((ignore-window-parameters t))
+                      (split-window
+                       (frame-root-window) -1 'below))))
         (if (setq buf (get-buffer "*LV*"))
             (switch-to-buffer buf)
           (switch-to-buffer "*LV*")
@@ -97,7 +98,7 @@ Only the background color is significant."
           (insert
            (propertize "__" 'face 'lv-separator 'display '(space :height (1)))
            (propertize "\n" 'face 'lv-separator 'line-height t)))
-        (setq-local window-min-height n-lines)
+        (set (make-local-variable 'window-min-height) n-lines)
         (setq truncate-lines (> n-lines 1))
         (let ((window-resize-pixelwise t)
               (window-size-fixed nil))