From: Kenichi Handa <handa@m17n.org>
Date: Mon, 16 Nov 1998 06:26:27 +0000 (+0000)
Subject: (japanese-zenkaku-region): New optional arg KATAKANA-ONLY.
X-Git-Tag: emacs-20.4~1227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b194460e44b22c557d067062387a548774836d26;p=emacs.git

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

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 6cd54e27114..14932039e79 100644
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -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)