# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 911197587 0
# Node ID b0c66c87b29bc32deafcf72128fdf2b55cd01e51
# Parent  e593fb9c68c39b7b382e51161b31b2e447b3fc8a
(japanese-zenkaku-region): New optional arg KATAKANA-ONLY.

diff -r e593fb9c68c3 -r b0c66c87b29b lisp/language/japan-util.el
--- a/lisp/language/japan-util.el	Mon Nov 16 06:26:27 1998 +0000
+++ b/lisp/language/japan-util.el	Mon Nov 16 06:26:27 1998 +0000
@@ -291,16 +291,20 @@
 				       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)