Function: tpu-next-end-of-line

tpu-next-end-of-line is an interactive and byte-compiled function defined in tpu-extras.el.gz.

Signature

(tpu-next-end-of-line NUM)

Documentation

Move to end of line; if at end, move to end of next line.

Accepts a prefix argument for the number of lines to move.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-extras.el.gz
(defun tpu-next-end-of-line (num)
  "Move to end of line; if at end, move to end of next line.
Accepts a prefix argument for the number of lines to move."
  (interactive "p")
  (let ((beg (tpu-current-line)))
    (cond (tpu-cursor-free-mode
	   (let ((beg (point)))
	     (if (< 1 num) (forward-line num))
	     (picture-end-of-line)
	     (if (<= (point) beg) (progn (forward-line) (picture-end-of-line)))))
	  (t
	   (forward-char)
	   (end-of-line num)))
    (tpu-bottom-check beg num)))