From: Kenichi Handa <handa@m17n.org>
Date: Tue, 25 Jul 2000 12:22:01 +0000 (+0000)
Subject: (japanese-katakana-region): Fix handling HANKAKU argument.
X-Git-Tag: emacs-pretest-21.0.90~2617
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbc7bbf778f45d15ad29a454a1c728e4657043e4;p=emacs.git

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

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))