Mercurial > emacs
changeset 104323:ffe0ad555039
Change to utf-8. Adjust coding cookie.
(sentence-end-without-space): Delete duplicated chars.
(sentence-end-base): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 18 Aug 2009 01:16:59 +0000 |
| parents | 7c6402addaaf |
| children | 1976ea1907a9 |
| files | lisp/textmodes/paragraphs.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/paragraphs.el Tue Aug 18 00:37:11 2009 +0000 +++ b/lisp/textmodes/paragraphs.el Tue Aug 18 01:16:59 2009 +0000 @@ -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