mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(hscroll-minibuffer-hook): New function.

Browse source 
(hscroll-global-mode): Add and remove that hook.
Set hscroll-old-truncate-was-global's default value.
This commit is contained in:
Richard M. Stallman 1999-07-09 18:00:24 +00:00
parent 191100f2aa
commit f165ac6642
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/hscroll.el
View file

@ -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