Function: ispell-horiz-scroll

ispell-horiz-scroll is a byte-compiled function defined in ispell.el.gz.

Signature

(ispell-horiz-scroll)

Documentation

Place point within the horizontal visibility of its window area.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/ispell.el.gz
;;; Horizontal scrolling
(defun ispell-horiz-scroll ()
  "Place point within the horizontal visibility of its window area."
  (if truncate-lines			; display truncating lines?
      ;; See if display needs to be scrolled.
      (let ((column (- (current-column) (max (window-hscroll) 1))))
	(if (and (< column 0) (> (window-hscroll) 0))
	    (scroll-right (max (- column) 10))
	  (if (>= column (- (window-width) 2))
	      (scroll-left (max (- column (window-width) -3) 10)))))))