Function: tpu-current-line

tpu-current-line is a byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-current-line)

Documentation

Return the vertical position of point in the selected window.

Top line is 0. Counts each text line only once, even if it wraps.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-current-line ()
  "Return the vertical position of point in the selected window.
Top line is 0.  Counts each text line only once, even if it wraps."
  (or
   (cdr (nth 6 (posn-at-point)))
   (if (eq (window-start) (point)) 0
     (1- (count-screen-lines (window-start) (point) 'count-final-newline)))))