From: hayashi <hayashi>
Date: Mon, 9 Jul 2001 06:16:47 +0000 (+0000)
Subject: * its.el (its-mode-map): Use XEmacs compatible form to define
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d610e48010add404d74b5afd4e6dfb288e776c43;p=elisp%2Ftamago.git

* its.el (its-mode-map): Use XEmacs compatible form to define
keymap.
---

diff --git a/ChangeLog b/ChangeLog
index dca5409..b2413f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
 
+	* its.el (its-mode-map): Use XEmacs compatible form to define
+	keymap.
+
+2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
+
 	* egg.el (egg-last-method-name): Initialize buffer-local varaible
 	to nil.
 	* its-keydef.el (its-select-func-alist): Ditto.
diff --git a/its.el b/its.el
index c33506d..25728ea 100644
--- a/its.el
+++ b/its.el
@@ -267,8 +267,8 @@
     (define-key map "\M-y" 'its-yank-pop)
     (define-key map [backspace] 'its-delete-backward-SYL)
     (define-key map [delete] 'its-delete-backward-SYL)
-    (define-key map [M-backspace] 'its-delete-backward-SYL-by-keystroke)
-    (define-key map [M-delete] 'its-delete-backward-SYL-by-keystroke)
+    (define-key map [(meta backspace)] 'its-delete-backward-SYL-by-keystroke)
+    (define-key map [(meta delete)] 'its-delete-backward-SYL-by-keystroke)
     (define-key map [right] 'its-forward-SYL)
     (define-key map [left] 'its-backward-SYL)
     (while (< i 127)