diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-07-25 12:22:01 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-07-25 12:22:01 +0000 |
| commit | 5b52fe57987129ed88b92ec6839872249d4c219f (patch) | |
| tree | 3843aa16eb060cbe45a145b5ef6757f8e1d5c450 /lisp/language | |
| parent | bef540c695031f2ebe42b58d854ce0484aa330dc (diff) | |
| download | emacs-5b52fe57987129ed88b92ec6839872249d4c219f.tar.gz | |
(japanese-katakana-region): Fix handling HANKAKU argument.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/japan-util.el | 4 |
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)) |