Function: japanese-katakana-region

japanese-katakana-region is an autoloaded, interactive and byte-compiled function defined in japan-util.el.gz.

Signature

(japanese-katakana-region FROM TO &optional HANKAKU)

Documentation

Convert Japanese hiragana chars in the region to katakana chars.

Optional argument HANKAKU t means to convert to hankaku katakana character of which charset is japanese-jisx0201-kana.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/language/japan-util.el.gz
;;;###autoload
(defun japanese-katakana-region (from to &optional hankaku)
  "Convert Japanese `hiragana' chars in the region to `katakana' chars.
Optional argument HANKAKU t means to convert to `hankaku katakana' character
of which charset is `japanese-jisx0201-kana'."
  (interactive "r\nP")
  (save-restriction
    (narrow-to-region from to)
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward "\\cH\\|\\cK" nil t)
	(let* ((kana (preceding-char))
	       (composition
		(and (not hankaku)
		     (get-char-code-property kana 'kana-composition)))
	       slot) ;; next
	  (if (and composition (setq slot (assq (following-char) composition)))
	      (japanese-replace-region (match-beginning 0) (1+ (point))
				       (cdr slot))
	    (let ((kata (get-char-code-property
			 kana (if hankaku 'jisx0201 'katakana))))
	      (if kata
		  (japanese-replace-region (match-beginning 0) (point)
					   kata)))))))))