Mercurial > hg > xemacs-beta

diff lisp/paragraphs.el @ 2578:1b8351656013

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- 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]*"))