From ccdb21a5d3c7543f6e5879e2ff393e654aa67ae7 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 27 Oct 1998 09:59:18 +0000 Subject: [PATCH] (canna:enter-canna-mode): Don't use `buffer-disable-undo'. (canna:quit-canna-mode): Don't use `buffer-enable-undo'. --- canna.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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 ;; MORIOKA Tomohiko ;; Stephen Turnbull -;; 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*)) )) -- 1.7.10.4