mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-28 10:51:29 -08:00
Code Issues Projects Releases Wiki Activity

(next-word-boundary-kana): Handle half-width kana.

Browse source
This commit is contained in:
Kenichi Handa 2004-04-13 06:20:28 +00:00
parent ee6f9c5977
commit c01b9ec3f2
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/characters.el
View file

@ -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