Mercurial > emacs

changeset 30451:153802156ca9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(japanese-katakana-region): Fix handling HANKAKU argument.
author Kenichi Handa <handa@m17n.org>
date Tue, 25 Jul 2000 12:22:01 +0000
parents 4e0dd1a37fba
children 7ac56091d9f4
files lisp/language/japan-util.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))