diff options
| author | Richard M. Stallman | 2009-01-16 00:43:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2009-01-16 00:43:40 +0000 |
| commit | 38cb7a93b178968c71ac4ff0c138e04a31f0aced (patch) | |
| tree | fdf07cb6da1d03f3acf64a29286b77e002e8d665 | |
| parent | 98a1e0f5b787a0554013019bc59df0b937cab801 (diff) | |
| download | emacs-38cb7a93b178968c71ac4ff0c138e04a31f0aced.tar.gz emacs-38cb7a93b178968c71ac4ff0c138e04a31f0aced.zip | |
(sentence-end): Accept non-break space.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 33c9a9c9e49..86caa554a13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2009-01-16 Richard M Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * textmodes/paragraphs.el (sentence-end): Accept non-break space. | ||
| 4 | |||
| 1 | 2009-01-15 Dan Nicolaescu <dann@ics.uci.edu> | 5 | 2009-01-15 Dan Nicolaescu <dann@ics.uci.edu> |
| 2 | 6 | ||
| 3 | * buff-menu.el (Buffer-menu-mode): Derive from special-mode. | 7 | * buff-menu.el (Buffer-menu-mode): Derive from special-mode. |
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 1d4a2746f62..ca141c1b671 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -183,14 +183,15 @@ end of a sentence, the ending period, question mark, or exclamation point | |||
| 183 | must be followed by two spaces, with perhaps some closing delimiters | 183 | must be followed by two spaces, with perhaps some closing delimiters |
| 184 | in between. See Info node `(elisp)Standard Regexps'." | 184 | in between. See Info node `(elisp)Standard Regexps'." |
| 185 | (or sentence-end | 185 | (or sentence-end |
| 186 | (concat (if sentence-end-without-period "\\w \\|") | 186 | ;; We accept non-break space along with space. |
| 187 | (concat (if sentence-end-without-period "\\w[ \u00a0][ \u00a0]\\|") | ||
| 187 | "\\(" | 188 | "\\(" |
| 188 | sentence-end-base | 189 | sentence-end-base |
| 189 | (if sentence-end-double-space | 190 | (if sentence-end-double-space |
| 190 | "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") | 191 | "\\($\\|[ \u00a0]$\\|\t\\|[ \u00a0][ \u00a0]\\)" "\\($\\|[\t \u00a0]\\)") |
| 191 | "\\|[" sentence-end-without-space "]+" | 192 | "\\|[" sentence-end-without-space "]+" |
| 192 | "\\)" | 193 | "\\)" |
| 193 | "[ \t\n]*"))) | 194 | "[ \u00a0\t\n]*"))) |
| 194 | 195 | ||
| 195 | (defcustom page-delimiter "^\014" | 196 | (defcustom page-delimiter "^\014" |
| 196 | "Regexp describing line-beginnings that separate pages." | 197 | "Regexp describing line-beginnings that separate pages." |