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

fbc7bbf7 · Kenichi Handa · 8c662166 · fbc7bbf7
Commit fbc7bbf7 authored Jul 25, 2000 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/language/japan-util.el lisp/language/japan-util.el +3 -1

No files found.
--- 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))