/[emacs]/emacs/lisp/textmodes/paragraphs.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/paragraphs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.66.4.4 by miles, Thu Sep 30 01:20:35 2004 UTC revision 1.66.4.5 by miles, Thu Oct 14 08:50:06 2004 UTC
# Line 1  Line 1 
1  ;;; paragraphs.el --- paragraph and sentence parsing  ;;; paragraphs.el --- paragraph and sentence parsing
2    
3  ;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001  ;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001, 2004
4  ;;    Free Software Foundation, Inc.  ;;    Free Software Foundation, Inc.
5    
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 122  This is relevant for filling.  See also Line 122  This is relevant for filling.  See also
122  and `colon-double-space'.  and `colon-double-space'.
123    
124  This value is used by the function `sentence-end' to construct the  This value is used by the function `sentence-end' to construct the
125  regexp describing the end of a sentence, in case when the value of  regexp describing the end of a sentence, when the value of the variable
126  the variable `sentence-end' is nil.  See Info node `Sentences'."  `sentence-end' is nil.  See Info node `(elisp)Standard Regexps'."
127    :type 'boolean    :type 'boolean
128    :group 'fill)    :group 'fill)
129    
# Line 133  For example, a sentence in Thai text end Line 133  For example, a sentence in Thai text end
133  without a period.  without a period.
134    
135  This value is used by the function `sentence-end' to construct the  This value is used by the function `sentence-end' to construct the
136  regexp describing the end of a sentence, in case when the value of  regexp describing the end of a sentence, when the value of the variable
137  the variable `sentence-end' is nil.  See Info node `Sentences'."  `sentence-end' is nil.  See Info node `(elisp)Standard Regexps'."
138    :type 'boolean    :type 'boolean
139    :group 'fill)    :group 'fill)
140    
141  (defcustom sentence-end-without-space  (defcustom sentence-end-without-space
142    "$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B"    "$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B"
143    "*String containing characters that end sentence without following spaces.    "*String of characters that end sentence without following spaces.
144    
145  This value is used by the function `sentence-end' to construct the  This value is used by the function `sentence-end' to construct the
146  regexp describing the end of a sentence, in case when the value of  regexp describing the end of a sentence, when the value of the variable
147  the variable `sentence-end' is nil.  See Info node `Sentences'."  `sentence-end' is nil.  See Info node `(elisp)Standard Regexps'."
148    :group 'paragraphs    :group 'paragraphs
149    :type 'string)    :type 'string)
150    
# Line 169  and `sentence-end-without-space'.  The d Line 169  and `sentence-end-without-space'.  The d
169  that in order to be recognized as the end of a sentence, the  that in order to be recognized as the end of a sentence, the
170  ending period, question mark, or exclamation point must be  ending period, question mark, or exclamation point must be
171  followed by two spaces, unless it's inside some sort of quotes or  followed by two spaces, unless it's inside some sort of quotes or
172  parenthesis.  See Info node `Sentences'."  parenthesis.  See Info node `(elisp)Standard Regexps'."
173    (or sentence-end    (or sentence-end
174        (concat (if sentence-end-without-period "\\w  \\|")        (concat (if sentence-end-without-period "\\w  \\|")
175                "\\([.?!][]\"'\xd0c9\x5397d)}]*"                "\\([.?!][]\"'\xd0c9\x5397d)}]*"

Legend:
Removed from v.1.66.4.4  
changed lines
  Added in v.1.66.4.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26