Commit fbc7bbf7 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(japanese-katakana-region): Fix handling HANKAKU argument.

parent 8c662166
......@@ -232,7 +232,9 @@ of which charset is `japanese-jisx0201-kana'."
(goto-char (point-min))
(while (re-search-forward "\\cH\\|\\cK" nil t)
(let* ((kana (preceding-char))
(composition (get-char-code-property kana 'kana-composition))
(composition
(and (not hankaku)
(get-char-code-property kana 'kana-composition)))
next slot)
(if (and composition (setq slot (assq (following-char) composition)))
(japanese-replace-region (match-beginning 0) (1+ (point))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment