Optional argument ASCII-ONLY non-nil means to return only ASCII character."
(if (stringp obj)
(japanese-string-conversion obj 'japanese-hankaku-region ascii-only)
- (or (get-char-code-property obj 'ascii)
- (and (not ascii-only)
+ (or (and (not ascii-only)
(get-char-code-property obj 'jisx0201))
+ (get-char-code-property obj 'ascii)
obj)))
;;;###autoload
(goto-char (point-min))
(while (re-search-forward "\\cj" nil t)
(let* ((zenkaku (preceding-char))
- (hankaku (or (get-char-code-property zenkaku 'ascii)
- (and (not ascii-only)
- (get-char-code-property zenkaku 'jisx0201)))))
+ (hankaku (or (and (not ascii-only)
+ (get-char-code-property zenkaku 'jisx0201))
+ (get-char-code-property zenkaku 'ascii))))
(if hankaku
(japanese-replace-region (match-beginning 0) (match-end 0)
hankaku)))))))