# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 964527721 0
# Node ID 153802156ca96f87db872da173b20cdf5baeb9ac
# Parent  4e0dd1a37fba11513854a552604c9577743cd853
(japanese-katakana-region): Fix handling HANKAKU argument.

diff -r 4e0dd1a37fba -r 153802156ca9 lisp/language/japan-util.el
--- a/lisp/language/japan-util.el	Tue Jul 25 12:21:28 2000 +0000
+++ b/lisp/language/japan-util.el	Tue Jul 25 12:22:01 2000 +0000
@@ -232,7 +232,9 @@
       (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))