Function: calc-count-lines

calc-count-lines is a byte-compiled function defined in calc.el.gz.

Signature

(calc-count-lines S)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun calc-count-lines (s)
  (let ((pos 0)
	(num 1))
    (while (setq pos (string-search "\n" s pos))
      (setq pos (1+ pos)
	    num (1+ num)))
    num))