From: morioka <morioka>
Date: Sun, 30 Aug 1998 09:54:39 +0000 (+0000)
Subject: egg-980309.
X-Git-Tag: egg-980309~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b03c025b15c384d1ab9b0ec2b9299c0e70a16f74;p=elisp%2Fegg.git

egg-980309.
---

diff --git a/ChangeLog b/ChangeLog
index c6e6280..aa2f6ca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+1998-03-09  NIIBE Yutaka  <gniibe@mri.co.jp>
+
+	* docomp.el (its-keydef): Require its-keydef when compile.
+	Not so good.  Just a work around.
+	(its-mode-map): Undo the changes of 03-04.
+	
+1998-03-09  KATAYAMA Yoshio <kate@pfu.co.jp>
+
+	* its.el (its-translate-region): Make it command.
+	(its-translate-region-internal): Make it function.
+
 1998-03-04  NIIBE Yutaka  <gniibe@mri.co.jp>
 
 	* its.el (its-define-select-keys of its-mode-map): Comment it out.
diff --git a/docomp.el b/docomp.el
index 49058f2..fa3c211 100644
--- a/docomp.el
+++ b/docomp.el
@@ -10,3 +10,4 @@
       )
 
 (require 'cl)
+(require 'its-keydef)
diff --git a/its.el b/its.el
index 9d54162..071ace8 100644
--- a/its.el
+++ b/its.el
@@ -210,7 +210,7 @@
     (define-key map "\M-k" 'its-katakana)
     (define-key map "\M-<" 'its-hankaku)
     (define-key map "\M->" 'its-zenkaku)
-;   (its-define-select-keys map t)
+    (its-define-select-keys map t)
     map)
   "Keymap for ITS mode.")
 
@@ -871,11 +871,11 @@ Return last state."
   cursor)
 
 (defun its-translate-region (start end)
+  (interactive "r")
   (its-translate-region-internal start end)
   (remove-text-properties start (point) '(its-lang nil)))
 
 (defun its-translate-region-internal (start end)
-  (interactive "r")
   (setq its-translation-result "")
   (goto-char start)
   (let ((i 0)