Function: japanese-hiragana-region

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

Signature

(japanese-hiragana-region FROM TO)

Documentation

Convert Japanese katakana chars in the region to hiragana chars.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/language/japan-util.el.gz
;;;###autoload
(defun japanese-hiragana-region (from to)
  "Convert Japanese `katakana' chars in the region to `hiragana' chars."
  (interactive "r")
  (save-restriction
    (narrow-to-region from to)
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward "\\cK\\|\\ck" nil t)
	(let* ((kata (preceding-char))
	       (composition (get-char-code-property kata 'kana-composition))
	       slot) ;; next
	  (if (and composition (setq slot (assq (following-char) composition)))
	      (japanese-replace-region (match-beginning 0) (1+ (point))
				       (get-char-code-property
					(cdr slot) 'hiragana))
	    (let ((hira (get-char-code-property kata 'hiragana)))
	      (if hira
		  (japanese-replace-region (match-beginning 0) (point)
					   hira)))))))))