摘要:
(defun count-words-region (beginning end) "Print number of words in the region." (interactive "r") (message "Counting words in region ... ") (save-excursion (let ((count 0)) (goto-char beginning) (while (and (< (point) end) (re-search-forward "\\w+\\W*" end 阅读全文