From 689205e084cb6d115ac3e399ad8f127c34822bcb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 18 Aug 2009 01:15:33 +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 90b10710926..7ce3493a2b6 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-10 Nick Roberts * 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 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.5