Signal error if Canna feature is not built.

diff --git a/canna.el b/canna.el
index 49ef784..a2b18f9 100644 (file)
--- a/canna.el
+++ b/canna.el
@@ -6,7 +6,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.13 $
+;; Version: $Revision: 1.14 $
 ;; Keywords: Canna, Japanese, input method, mule, multilingual
 
 ;; This file is not a part of Emacs yet.
@@ -50,12 +50,16 @@
 (and canna-dl-handle
      (dynamic-call "emacs_canna_init" canna-dl-handle))
 
+(or (boundp 'CANNA)
+    (featurep 'CANNA)
+    (error "Canna is not built into this Emacs"))
+
 (defvar self-insert-after-hook nil)
 ;; (defalias 'self-insert-internal 'self-insert-command)
 ;; end
 
 (defconst canna-rcs-version
-  "$Id: canna.el,v 1.13 1998-02-09 12:20:22 morioka Exp $")
+  "$Id: canna.el,v 1.14 1998-02-09 12:25:16 morioka Exp $")
 
 (defun canna-version ()
   "Display version of canna.el in mini-buffer."