Function: flyspell-adjust-cursor-point

flyspell-adjust-cursor-point is a byte-compiled function defined in flyspell.el.gz.

Signature

(flyspell-adjust-cursor-point SAVE CURSOR-LOCATION OLD-MAX)

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/flyspell.el.gz
;;*---------------------------------------------------------------------*/
;;*    flyspell-adjust-cursor-point ...                                  */
;;*---------------------------------------------------------------------*/
(defun flyspell-adjust-cursor-point (save cursor-location old-max)
  (if (>= save cursor-location)
      (let ((new-pos (+ save (- (point-max) old-max))))
	(goto-char (cond
		    ((< new-pos (point-min))
		     (point-min))
		    ((> new-pos (point-max))
		     (point-max))
		    (t new-pos))))
    (goto-char save)))