Mercurial > emacs

changeset 89896:5fad4082726a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(next-word-boundary-kana): Handle half-width kana.
author Kenichi Handa <handa@m17n.org>
date Tue, 13 Apr 2004 06:20:28 +0000
parents 8acd4d359758
children ab29fb42f36c
files lisp/international/characters.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Tue Apr 13 00:44:50 2004 +0000
+++ b/lisp/international/characters.el	Tue Apr 13 06:20:28 2004 +0000
@@ -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