User: ben Date: 05/02/10 04:17:02 Modified: xemacs/lisp ChangeLog paragraphs.el Log: 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). Revision Changes Path 1.638 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.637 retrieving revision 1.638 diff -u -r1.637 -r1.638 --- ChangeLog 2005/02/09 18:06:33 1.637 +++ ChangeLog 2005/02/10 03:16:58 1.638 ＠＠ -1,3 +1,9 ＠＠ +2005-02-09 Ben Wing <ben(a)xemacs.org&gt; + + * 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(a)parhasard.net&gt; * mule/european.el: Fix a comment typo pointed out by Jerry James 1.11 +5 -1 XEmacs/xemacs/lisp/paragraphs.el Index: paragraphs.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/paragraphs.el,v retrieving revision 1.10 retrieving revision 1.11 diff -u -r1.10 -r1.11 --- paragraphs.el 2005/02/03 21:27:59 1.10 +++ paragraphs.el 2005/02/10 03:16:59 1.11 ＠＠ -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]*"))