Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-extr.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children 1a767b41a199
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
1707 (if word-found-flag 1707 (if word-found-flag
1708 (setq word-count (1+ word-count)))) 1708 (setq word-count (1+ word-count))))
1709 1709
1710 ;; If the last thing in the name is 2 or more periods, or one or more 1710 ;; If the last thing in the name is 2 or more periods, or one or more
1711 ;; other sentence terminators (but not a single period) then keep them 1711 ;; other sentence terminators (but not a single period) then keep them
1712 ;; and the preceeding word. This is for the benefit of whole sentences 1712 ;; and the preceding word. This is for the benefit of whole sentences
1713 ;; in the name field: it's better behavior than dropping the last word 1713 ;; in the name field: it's better behavior than dropping the last word
1714 ;; of the sentence... 1714 ;; of the sentence...
1715 (if (and (not suffix-flag) 1715 (if (and (not suffix-flag)
1716 (looking-at "\\(\\.+\\|[?!;:.][?!;:.]+\\|[?!;:][?!;:.]*\\)\\'")) 1716 (looking-at "\\(\\.+\\|[?!;:.][?!;:.]+\\|[?!;:][?!;:.]*\\)\\'"))
1717 (goto-char (setq suffix-flag (point-max)))) 1717 (goto-char (setq suffix-flag (point-max))))