Mercurial > hg > xemacs-beta
comparison lisp/paragraphs.el @ 2578:1b8351656013
[xemacs-hg @ 2005-02-10 03:16:58 by ben]
Fix literal Mule chars in paragraphs.el
paragraphs.el: Don't have literal chars in the string and don't put the extended
chars in the string unless (featurep 'mule).
| author | ben |
|---|---|
| date | Thu, 10 Feb 2005 03:16:59 +0000 |
| parents | c69008aaa9bc |
| children | b4f4e0cc90f1 |
comparison
equal
deleted
inserted
replaced
| 2577:f5ebcedb0789 | 2578:1b8351656013 |
|---|---|
| 147 (defcustom sentence-end | 147 (defcustom sentence-end |
| 148 (purecopy | 148 (purecopy |
| 149 ;; This is a bit stupid since it's not auto-updated when the | 149 ;; This is a bit stupid since it's not auto-updated when the |
| 150 ;; other variables are changed, but it's still useful info. | 150 ;; other variables are changed, but it's still useful info. |
| 151 (concat (if sentence-end-without-period "\\w \\|") | 151 (concat (if sentence-end-without-period "\\w \\|") |
| 152 "[.?!$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B][]\"')}]*" | 152 "[.?!" |
| 153 (if (featurep 'mule) | |
| 154 (decode-coding-string "\033$B!#!%!)!*\033$A!##.#?#!\033$(0!$!%!)!*\033$(G!$!%!)!*\033(B" 'iso-2022-7bit) | |
| 155 "") | |
| 156 "][]\"')}]*" | |
| 153 (if sentence-end-double-space | 157 (if sentence-end-double-space |
| 154 "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") | 158 "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") |
| 155 "[ \t\n]*")) | 159 "[ \t\n]*")) |
| 156 "*Regexp describing the end of a sentence. | 160 "*Regexp describing the end of a sentence. |
| 157 The value includes the whitespace following the sentence. | 161 The value includes the whitespace following the sentence. |