From c01b9ec3f28abb35ca974fd8240b0c624b7486ca Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 13 Apr 2004 06:20:28 +0000 Subject: [PATCH] (next-word-boundary-kana): Handle half-width kana. --- lisp/international/characters.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index cd4ef1d2ca1..71260420adf 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -953,12 +953,16 @@ (goto-char (match-end 0))) (if (looking-at "\\cH+") (goto-char (match-end 0))) + (if (looking-at "\\ck+") + (goto-char (match-end 0))) (point)) (let ((category-set (char-category-set (char-after pos))) category) - (if (aref category-set ?K) + (if (or (aref category-set ?K) (aref category-set ?k)) (while (and (> pos limit) - (aref (char-category-set (char-after (1- pos))) ?K)) + (setq category-set + (char-category-set (char-after (1- pos)))) + (or (aref category-set ?K) (aref category-set ?k))) (setq pos (1- pos))) (while (and (> pos limit) (aref (setq category-set