Function: count-words--format

count-words--format is a byte-compiled function defined in simple.el.gz.

Signature

(count-words--format STR START END)

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun count-words--format (str start end)
  (let ((lines (count-lines start end))
	(sentences (count-sentences start end))
	(words (count-words start end))
	(chars (- end start)))
    (format "%s has %d line%s, %d sentence%s, %d word%s, and %d character%s"
	     str
	     lines (if (= lines 1) "" "s")
	     sentences (if (= sentences 1) "" "s")
	     words (if (= words 1) "" "s")
	     chars (if (= chars 1) "" "s"))))