projects
/
elisp
/
egg.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0881feb
)
egg-980309.
author
morioka
<morioka>
Sun, 30 Aug 1998 09:54:39 +0000
(09:54 +0000)
committer
morioka
<morioka>
Sun, 30 Aug 1998 09:54:39 +0000
(09:54 +0000)
ChangeLog
patch
|
blob
|
history
docomp.el
patch
|
blob
|
history
its.el
patch
|
blob
|
history
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.
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 '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)
(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.")
map)
"Keymap for ITS mode.")
@@
-871,11
+871,11
@@
Return last state."
cursor)
(defun its-translate-region (start end)
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)
(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)
(setq its-translation-result "")
(goto-char start)
(let ((i 0)