Change to utf-8. Adjust coding cookie.

(sentence-end-without-space): Delete duplicated chars.
(sentence-end-base): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90b10710926b31319e65174828125b2f3be46ef5..7ce3493a2b62d4b917989b2ac296b94559446ea1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-08-18  Kenichi Handa  <handa@m17n.org>
+
+       * textmodes/paragraphs.el: Change to utf-8.  Adjust coding cookie.
+       (sentence-end-without-space): Delete duplicated chars.
+       (sentence-end-base): Likewise.
+
 2009-08-10  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gud.el (gud-tool-bar-map): Use new 8+3 filenames.

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index ca141c1b671225625f9ed340624be4515d862009..57222a6e4f4b719510cebc8c0cfe4cc4fe4674cd 100644 (file)
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -141,7 +141,7 @@ regexp describing the end of a sentence, when the value of the variable
 (put 'sentence-end-without-period 'safe-local-variable 'booleanp)
 
 (defcustom sentence-end-without-space
-  "\e$B!#!%!)!*\e$A!##.#?#!\e$(0!$!%!)!*\e$(G!$!%!)!*\e(B"
+  "。．？！"
   "String of characters that end sentence without following spaces.
 
 This value is used by the function `sentence-end' to construct the
@@ -163,7 +163,7 @@ to obtain the value of this variable."
   :type '(choice regexp (const :tag "Use default value" nil)))
 (put 'sentence-end 'safe-local-variable 'string-or-null-p)
 
-(defcustom sentence-end-base "[.?!][]\"'\e$B!I\e$,1r}\e(B)}]*"
+(defcustom sentence-end-base "[.?!][]\"'”)}]*"
   "Regexp matching the basic end of a sentence, not including following space."
   :group 'paragraphs
   :type 'string
@@ -514,7 +514,7 @@ ones already marked."
   (transpose-subr 'forward-sentence arg))
 
 ;; Local Variables:
-;; coding: iso-2022-7bit
+;; coding: utf-8
 ;; End:
 
 ;; arch-tag: e727eb1a-527a-4464-b9d7-9d3ec0d1a575