# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 931543224 0
# Node ID db6ed843d5e808eeab649fe0bd5812c0ceff00e5
# Parent  a4c871b96d4be541c44b0fc9351f226258804c76
(hscroll-minibuffer-hook): New function.
(hscroll-global-mode): Add and remove that hook.
Set hscroll-old-truncate-was-global's default value.

diff -r a4c871b96d4b -r db6ed843d5e8 lisp/hscroll.el
--- a/lisp/hscroll.el	Fri Jul 09 13:38:11 1999 +0000
+++ b/lisp/hscroll.el	Fri Jul 09 18:00:24 1999 +0000
@@ -196,20 +196,25 @@
 	    ;; 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