X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=canna.el;h=b26a330cd290c4770544f65e140f64ffe3240487;hb=2220c00815d4c4f3c53b46e325386ac9517ea2e2;hp=c03d6c63dc318bceada1260addf7c788c1a7aa71;hpb=d452738eb692e16c6c96d533a0e1893932609930;p=elisp%2Femacs-canna.git

diff --git a/canna.el b/canna.el
index c03d6c6..b26a330 100644
--- a/canna.el
+++ b/canna.el
@@ -7,7 +7,7 @@
 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp>
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;         Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
-;; Version: $Revision: 1.17 $
+;; Version: $Revision: 1.18 $
 ;; Keywords: Canna, Japanese, input method, mule, multilingual
 
 ;; This file is part of Emacs-Canna.
@@ -60,7 +60,7 @@
 ;; end
 
 (defconst canna-rcs-version
-  "$Id: canna.el,v 1.17 1998-10-26 16:34:32 morioka Exp $")
+  "$Id: canna.el,v 1.18 1998-10-27 09:59:18 morioka Exp $")
 
 (defun canna-version ()
   "Display version of canna.el in mini-buffer."
@@ -850,10 +850,11 @@ kana-to-kanji translation, even if you are in the minibuffer."
 				 canna:*saved-mode-string*
 			       new-mode)))
 			0)))
-  (setq canna:*local-map-backup*  (current-local-map))
+  (setq canna:*local-map-backup* (current-local-map))
   (setq canna:*fence-mode* t)
   ;; XEmacs change:
-  (buffer-disable-undo (current-buffer))
+  ;; (buffer-disable-undo (current-buffer))
+  ;; Original:
   ;; (if (boundp 'disable-undo)
   ;;     (setq disable-undo canna:*fence-mode*))
   (use-local-map canna-mode-map))
@@ -875,7 +876,8 @@ kana-to-kanji translation, even if you are in the minibuffer."
 		   (canna-toggle-japanese-mode)
 		 (mode-line-canna-mode-update canna:*alpha-mode-string*) )))
 	 ;; XEmacs change:
-	 (buffer-enable-undo (current-buffer))
+         ;; (buffer-enable-undo (current-buffer))
+	 ;; Original:
          ;; (if (boundp 'disable-undo)
          ;;     (setq disable-undo canna:*fence-mode*))
 	 ))