diff options
| -rw-r--r-- | lisp/international/characters.el | 8 |
1 files 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 @@ | |||
| 953 | (goto-char (match-end 0))) | 953 | (goto-char (match-end 0))) |
| 954 | (if (looking-at "\\cH+") | 954 | (if (looking-at "\\cH+") |
| 955 | (goto-char (match-end 0))) | 955 | (goto-char (match-end 0))) |
| 956 | (if (looking-at "\\ck+") | ||
| 957 | (goto-char (match-end 0))) | ||
| 956 | (point)) | 958 | (point)) |
| 957 | (let ((category-set (char-category-set (char-after pos))) | 959 | (let ((category-set (char-category-set (char-after pos))) |
| 958 | category) | 960 | category) |
| 959 | (if (aref category-set ?K) | 961 | (if (or (aref category-set ?K) (aref category-set ?k)) |
| 960 | (while (and (> pos limit) | 962 | (while (and (> pos limit) |
| 961 | (aref (char-category-set (char-after (1- pos))) ?K)) | 963 | (setq category-set |
| 964 | (char-category-set (char-after (1- pos)))) | ||
| 965 | (or (aref category-set ?K) (aref category-set ?k))) | ||
| 962 | (setq pos (1- pos))) | 966 | (setq pos (1- pos))) |
| 963 | (while (and (> pos limit) | 967 | (while (and (> pos limit) |
| 964 | (aref (setq category-set | 968 | (aref (setq category-set |