procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(japanese-zenkaku-region): New optional arg KATAKANA-ONLY.

Browse source
This commit is contained in:
Kenichi Handa 1998-11-16 06:26:27 +00:00
parent 6185c1c05b
commit b194460e44
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/language/japan-util.el
View file

@ -291,16 +291,20 @@ Optional argument ASCII-ONLY non-nil means to convert only to ASCII char."
hankaku)))))))
;;;###autoload
(defun japanese-zenkaku-region (from to)
(defun japanese-zenkaku-region (from to &optional katakana-only)
"Convert hankaku' chars in the region to Japanese `zenkaku' chars.
`Zenkaku' chars belong to `japanese-jisx0208'
`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'."
(interactive "r")
`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'.
Optional argument KATAKANA-ONLY non-nil means to convert only KATAKANA char."
(interactive "r\nP")
(save-restriction
(narrow-to-region from to)
(save-excursion
(goto-char (point-min))
(while (re-search-forward "\\ca\\|\\ck" nil t)
(while (or (and katakana-only
(re-search-forward "\\ck" nil t))
(and (not katakana-only)
(re-search-forward "\\ca\\|\\ck" nil t)))
(let* ((hankaku (preceding-char))
(composition (get-char-code-property hankaku 'kana-composition))
next slot)