canna.so is searched from exec-directory.

diff --git a/canna.el b/canna.el
index 9333fa5..aa497e1 100644 (file)
--- a/canna.el
+++ b/canna.el
@@ -28,7 +28,7 @@
 
 ;; by \e$B<i2,\e(B \e$BCNI'\e(B <morioka@jaist.ac.jp> 1996/11/11
 (or (boundp 'CANNA)
-    (let ((handle (dynamic-link "canna.so")))
+    (let ((handle (dynamic-link (expand-file-name "canna.so" exec-directory))))
       (dynamic-call "emacs_canna_init" handle))
     )
 
@@ -36,7 +36,8 @@
 ;; (defalias 'self-insert-internal 'self-insert-command)
 ;; end
 
-(defconst canna-rcs-version "$Id: canna.el,v 1.3 1997-04-03 18:34:39 morioka Exp $")
+(defconst canna-rcs-version
+  "$Id: canna.el,v 1.4 1997-04-03 18:35:51 morioka Exp $")
 
 (defun canna-version ()
   (interactive)