[COMMIT] Fix literal Mule chars in paragraphs.el
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2005-02-09 Ben Wing <ben(a)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).
build source patch:
Diff command: bash -ci "cvs-diff --show-c-function -no-changelog "
Files affected: lisp/paragraphs.el
Index: lisp/paragraphs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/paragraphs.el,v
retrieving revision 1.10
diff -u -p -r1.10 paragraphs.el
--- lisp/paragraphs.el 2005/02/03 21:27:59 1.10
+++ lisp/paragraphs.el 2005/02/10 03:09:06
＠＠ -149,7 +149,11 ＠＠ without a period."
;; 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]*"))