+#else /* CANNA_EMACS_DL */
+void
+emacs_canna_init ()
+{
+ Lisp_Object sym;
+
+ sym = intern("CANNA");
+ XSYMBOL (sym)->value = Qt;
+
+ s_canna_key_proc
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_key_proc, s_canna_key_proc, sizeof (struct Lisp_Subr));
+ defsubr (s_canna_key_proc);
+
+ s_canna_initialize
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_initialize, s_canna_initialize, sizeof (struct Lisp_Subr));
+ defsubr (s_canna_initialize);
+
+ s_canna_finalize
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_finalize, s_canna_finalize, sizeof (struct Lisp_Subr));
+ defsubr (s_canna_finalize);
+
+ s_canna_touroku_string
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_touroku_string, s_canna_touroku_string,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_touroku_string);
+
+ s_canna_set_width
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_set_width, s_canna_set_width,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_set_width);
+
+ s_canna_change_mode
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_change_mode, s_canna_change_mode,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_change_mode);
+
+ s_canna_store_yomi
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_store_yomi, s_canna_store_yomi,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_store_yomi);
+
+ s_canna_do_function
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_do_function, s_canna_do_function,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_do_function);
+
+ s_canna_parse
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_parse, s_canna_parse,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_parse);
+
+ s_canna_query_mode
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_query_mode, s_canna_query_mode,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_query_mode);
+
+ s_canna_set_bunsetsu
+ = (struct Lisp_Subr *)xmalloc (sizeof (struct Lisp_Subr));
+ bcopy (&Scanna_set_bunsetsu, s_canna_set_bunsetsu,
+ sizeof (struct Lisp_Subr));
+ defsubr (s_canna_set_bunsetsu);
+#endif