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

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index fc1e123fa09..9e63dcbaf04 100644
--- 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))