From b03c025b15c384d1ab9b0ec2b9299c0e70a16f74 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 30 Aug 1998 09:54:39 +0000 Subject: [PATCH] egg-980309. --- ChangeLog | 11 +++++++++++ docomp.el | 1 + its.el | 4 ++-- 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c6e6280..aa2f6ca 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +1998-03-09 NIIBE Yutaka + + * 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 + + * its.el (its-translate-region): Make it command. + (its-translate-region-internal): Make it function. + 1998-03-04 NIIBE Yutaka * 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) -- 1.7.10.4