From: morioka <morioka>
Date: Mon, 9 Feb 1998 12:03:47 +0000 (+0000)
Subject: Put 'pending-delete to 'canna-self-insert-command (for XEmacs?).
X-Git-Tag: emacs-canna-199811302358~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5f42d23e2a0d5baf1b7e726b4bb1afe4ec8c223e;p=elisp%2Femacs-canna.git

Put 'pending-delete to 'canna-self-insert-command (for XEmacs?).
---

diff --git a/canna.el b/canna.el
index 768a8f6..3d8683b 100644
--- a/canna.el
+++ b/canna.el
@@ -5,7 +5,7 @@
 
 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp>
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 1.11 $
+;; Version: $Revision: 1.12 $
 ;; Keywords: Canna, Japanese, input method, mule, multilingual
 
 ;; This file is not a part of Emacs yet.
@@ -54,7 +54,7 @@
 ;; end
 
 (defconst canna-rcs-version
-  "$Id: canna.el,v 1.11 1998-02-09 12:01:53 morioka Exp $")
+  "$Id: canna.el,v 1.12 1998-02-09 12:03:47 morioka Exp $")
 
 (defun canna-version ()
   "Display version of canna.el in mini-buffer."
@@ -763,6 +763,9 @@ kana-to-kanji translation, even if you are in the minibuffer."
 		       (- (point) arg) (point)))
 	(if (= last-command-char ? ) (canna:do-auto-fill))))))
 
+;; wire us into pending-delete
+(put 'canna-self-insert-command 'pending-delete t)
+
 (defun canna-toggle-japanese-mode ()
   "Toggle canna japanese mode."
   (interactive)