Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children 558f606b08ae
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
586 (let ((words 0)) 586 (let ((words 0))
587 (goto-char start) 587 (goto-char start)
588 (while (< (point) end) 588 (while (< (point) end)
589 (when (forward-word 1) 589 (when (forward-word 1)
590 (incf words))) 590 (incf words)))
591 (when (interactive-p) 591 (when (interactive-p)
592 (message "Region has %d words" words)) 592 (message "Region has %d words" words))
593 words))) 593 words)))
594 594
595 (defun count-lines-region (start end) 595 (defun count-lines-region (start end)
596 "Print number of lines and characters in the region." 596 "Print number of lines and characters in the region."