[Emacs-diffs] emacs/lisp/textmodes paragraphs.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/08/18 01:17:00

Modified files:
        lisp/textmodes : paragraphs.el 

Log message:
        Change to utf-8.  Adjust coding cookie.
        (sentence-end-without-space): Delete duplicated chars.
        (sentence-end-base): Likewise.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/paragraphs.el?cvsroot=emacs&r1=1.97&r2=1.98

Patches:
Index: paragraphs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/paragraphs.el,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -b -r1.97 -r1.98
--- paragraphs.el       16 Jan 2009 00:43:27 -0000      1.97
+++ paragraphs.el       18 Aug 2009 01:16:59 -0000      1.98
@@ -141,7 +141,7 @@
 (put 'sentence-end-without-period 'safe-local-variable 'booleanp)
 
 (defcustom sentence-end-without-space
-  "$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(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 @@
   :type '(choice regexp (const :tag "Use default value" nil)))
 (put 'sentence-end 'safe-local-variable 'string-or-null-p)
 
-(defcustom sentence-end-base "[.?!][]\"'$B!I$,1r}(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 @@
   (transpose-subr 'forward-sentence arg))
 
 ;; Local Variables:
-;; coding: iso-2022-7bit
+;; coding: utf-8
 ;; End:
 
 ;; arch-tag: e727eb1a-527a-4464-b9d7-9d3ec0d1a575