Mercurial > emacs

comparison lisp/gnus/spam-stat.el @ 68931:d7445550220c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(spam-stat-buffer-words): Fix typo in docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 16 Feb 2006 11:36:21 +0000
parents 1077b8039c32
children e3694f1cb928
comparison
equal deleted inserted replaced
68930:16194e6e2a7b 68931:d7445550220c
321 (narrow-to-region (point-min) 321 (narrow-to-region (point-min)
322 (+ (point-min) spam-stat-max-buffer-length))) 322 (+ (point-min) spam-stat-max-buffer-length)))
323 ,@body)) 323 ,@body))
324 324
325 (defun spam-stat-buffer-words () 325 (defun spam-stat-buffer-words ()
326 "Return a hash table of words and number of occurences in the buffer." 326 "Return a hash table of words and number of occurrences in the buffer."
327 (with-spam-stat-max-buffer-size 327 (with-spam-stat-max-buffer-size
328 (with-syntax-table spam-stat-syntax-table 328 (with-syntax-table spam-stat-syntax-table
329 (goto-char (point-min)) 329 (goto-char (point-min))
330 (let ((result (make-hash-table :test 'equal)) 330 (let ((result (make-hash-table :test 'equal))
331 word count) 331 word count)