Change scroll position

radian-software · Jan 16, 2021 · ca94b56 · ca94b56
1 parent c652447
commit ca94b56
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/selectrum.el b/selectrum.el
@@ -723,9 +723,9 @@ the update."
     (goto-char (max (point) (minibuffer-prompt-end)))
     ;; Scroll the minibuffer when current prompt exceeds window width.
     (let* ((width (window-width)))
-      (if (< (point) (- width (/ width 4)))
+      (if (< (point) (- width (/ width 3)))
           (set-window-hscroll nil 0)
-        (set-window-hscroll nil (- (point) (* 3 (/ width 4))))))
+        (set-window-hscroll nil (- (point) (/ width 3)))))
     ;; For some reason this resets and thus can't be set in setup hook.
     (setq-local truncate-lines t)
     (let ((inhibit-read-only t)