(hscroll-minibuffer-hook): New function.

(hscroll-global-mode): Add and remove that hook.
Set hscroll-old-truncate-was-global's default value.

diff --git a/lisp/hscroll.el b/lisp/hscroll.el
index 04c582fbee1e13bae73da136af86b69fbcbb023c..1afce94055632997a5975c6429eef307ba6c6df4 100644 (file)
--- 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