;; 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.16 $
+;; Version: $Revision: 1.18 $
;; Keywords: Canna, Japanese, input method, mule, multilingual
;; This file is part of Emacs-Canna.
(require 'poem)
-(eval-and-compile
- (defvar canna-dl-module
- (expand-file-name "canna.so" exec-directory))
+(defvar canna-dl-module
+ (expand-file-name "canna.so" exec-directory))
- (defvar canna-dl-handle
- (and (not (boundp 'CANNA))
- (fboundp 'dynamic-link)
- (dynamic-link canna-dl-module)))
-
- (and canna-dl-handle
- (dynamic-call "emacs_canna_init" canna-dl-handle))
- )
+(defvar canna-dl-handle
+ (and (not (boundp 'CANNA))
+ (fboundp 'dynamic-link)
+ (dynamic-link canna-dl-module)))
+
+(and canna-dl-handle
+ (dynamic-call "emacs_canna_init" canna-dl-handle))
(or (boundp 'CANNA)
(featurep 'CANNA)
;; end
(defconst canna-rcs-version
- "$Id: canna.el,v 1.16 1998-10-21 06:36:55 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."
;;; canna-functional-insert-command \e$B$r8F$V!#\e(B
;;;
-(if (not (boundp 'MULE)) ; for Nemacs
- (defun cancel-undo-boundary ()))
+;; (if (not (boundp 'MULE)) ; for Nemacs
+;; (defun cancel-undo-boundary ()))
(defun canna-self-insert-command (arg)
"Self insert pressed key and use it to assemble Romaji character."
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))
(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*))
))