egg-980309.

diff --git a/ChangeLog b/ChangeLog
index c6e6280..aa2f6ca 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)