diff options
| -rw-r--r-- | lisp/hscroll.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/hscroll.el b/lisp/hscroll.el index 04c582fbee1..1afce940556 100644 --- a/lisp/hscroll.el +++ b/lisp/hscroll.el @@ -196,20 +196,25 @@ will have no effect on it). ;; it was off (progn (setq hscroll-old-truncate-default (default-value truncate-lines)) - (setq hscroll-old-truncate-was-global t) + (setq-default hscroll-old-truncate-was-global t) (setq-default truncate-lines t) + (add-hook 'minibuffer-setup-hook 'hscroll-minibuffer-hook) (setq hscroll-timer (run-with-idle-timer 0 t 'hscroll-window-maybe)))) ;; turn it off (if hscroll-mode ;; it was on (progn + (remove-hook 'minibuffer-setup-hook 'hscroll-minibuffer-hook) (setq-default truncate-lines hscroll-old-truncate-default) (cancel-timer hscroll-timer)))) (setq-default hscroll-mode newmode) (force-mode-line-update t))) +(defun hscroll-minibuffer-hook () + (setq truncate-lines hscroll-old-truncate-default)) + (defun hscroll-window-maybe () "Scroll horizontally if point is off or nearly off the edge of the window. This is called automatically when in HScroll mode, but it can be explicitly |