Mercurial > hg > xemacs-beta

comparison lisp/paragraphs.el @ 2553:b880fa9b5d8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 17:33:50 by james] Fix the C++ build the rest of the way. See xemacs-patches message with ID <ps4qgteel0.fsf@diannao.ittc.ku.edu>.
author james
date Thu, 03 Feb 2005 17:34:03 +0000
parents 9ec13301bb30
children c69008aaa9bc
comparison
equal deleted inserted replaced
2552:166ed8151e62 2553:b880fa9b5d8a
34 34
35 ;; 06/11/1997 - Use char-(after|before) instead of 35 ;; 06/11/1997 - Use char-(after|before) instead of
36 ;; (following|preceding)-char. -slb 36 ;; (following|preceding)-char. -slb
37 37
38 ;;; Code: 38 ;;; Code:
39
40 (require 'easy-mmode)
39 41
40 (defgroup paragraphs nil 42 (defgroup paragraphs nil
41 "Paragraph and sentence parsing." 43 "Paragraph and sentence parsing."
42 :group 'editing) 44 :group 'editing)
43 45
145 :group 'fill) 147 :group 'fill)
146 148
147 (defcustom sentence-end 149 (defcustom sentence-end
148 (purecopy 150 (purecopy
149 ;; This is a bit stupid since it's not auto-updated when the 151 ;; This is a bit stupid since it's not auto-updated when the
150 ;; other variables are changes, but it's still useful info. 152 ;; other variables are changed, but it's still useful info.
151 (concat (if sentence-end-without-period "\\w \\|") 153 (concat (if sentence-end-without-period "\\w \\|")
152 "[.?!$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B][]\"')}]*" 154 "[.?!$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B][]\"')}]*"
153 (if sentence-end-double-space 155 (if sentence-end-double-space
154 "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") 156 "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)")
155 "[ \t\n]*")) 157 "[ \t\n]*"))