Mercurial > hg > xemacs-beta
changeset 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 | f5ebcedb0789 |
| children | 1fc205405d85 |
| files | lisp/ChangeLog lisp/paragraphs.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 09 22:51:28 2005 +0000 +++ b/lisp/ChangeLog Thu Feb 10 03:16:59 2005 +0000 @@ -1,3 +1,9 @@ +2005-02-09 Ben Wing <ben@xemacs.org> + + * paragraphs.el (sentence-end): + Don't have literal chars in the string and don't put the extended + chars in the string unless (featurep 'mule). + 2005-02-09 Aidan Kehoe <kehoea@parhasard.net> * mule/european.el: Fix a comment typo pointed out by Jerry James
--- a/lisp/paragraphs.el Wed Feb 09 22:51:28 2005 +0000 +++ b/lisp/paragraphs.el Thu Feb 10 03:16:59 2005 +0000 @@ -149,7 +149,11 @@ ;; This is a bit stupid since it's not auto-updated when the ;; other variables are changed, but it's still useful info. (concat (if sentence-end-without-period "\\w \\|") - "[.?!$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B][]\"')}]*" + "[.?!" + (if (featurep 'mule) + (decode-coding-string "\033$B!#!%!)!*\033$A!##.#?#!\033$(0!$!%!)!*\033$(G!$!%!)!*\033(B" 'iso-2022-7bit) + "") + "][]\"')}]*" (if sentence-end-double-space "\\($\\| $\\|\t\\| \\)" "\\($\\|[\t ]\\)") "[ \t\n]*"))