Function: tpu-what-line

tpu-what-line is an interactive and byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-what-line)

Documentation

Tell what line the point is on, and the total number of lines in the buffer.

Key Bindings

Aliases

what line WHAT LINE

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-what-line nil
  "Tell what line the point is on,
and the total number of lines in the buffer."
  (interactive)
  (if (eobp)
      (message "You are at the End of Buffer.  The last line is %d."
	       (count-lines 1 (point-max)))
    (let* ((cur (count-lines 1 (1+ (point))))
	   (max (count-lines 1 (point-max)))
	   (pct (/ (* 100 (+ cur (/ max 200))) max)))
      (message "You are on line %d out of %d (%d%%)." cur max pct))))