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

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index fc1e123fa095caf3b66d6b6e959a62df73f4b769..9e63dcbaf041c434780bdbbc9a0801d2bec29fc6 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -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))