From 988194903ce261ff84134dc3c8bf12efce7833f3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 18 Aug 2009 01:17:51 +0000 Subject: [PATCH] Change to utf-8. Adjust coding cookie. (sentence-end-without-space): Delete duplicated chars. (sentence-end-base): Likewise. --- lisp/ChangeLog | 6 ++++++ lisp/textmodes/paragraphs.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 814370a6570..b757200c9e2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-08-18 Kenichi Handa + + * textmodes/paragraphs.el: Change to utf-8. Adjust coding cookie. + (sentence-end-without-space): Delete duplicated chars. + (sentence-end-base): Likewise. + 2009-08-17 Chong Yidong * files.el (hack-one-local-variable): If the mode function is for diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index ca141c1b671..57222a6e4f4 100644 --- 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 - "$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 @@ 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 "[.?!][]\"'$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 @@ 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 -- 2.39.2