egg-980309.

[elisp/egg.git] / its.el

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)