From: morioka <morioka>
Date: Thu, 3 Apr 1997 18:35:51 +0000 (+0000)
Subject: canna.so is searched from exec-directory.
X-Git-Tag: emacs-canna-199811302358~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8e717a13c139d2a6825c94aa7a83175b28765834;p=elisp%2Femacs-canna.git

canna.so is searched from exec-directory.
---

diff --git a/canna.el b/canna.el
index 9333fa5..aa497e1 100644
--- a/canna.el
+++ b/canna.el
@@ -28,7 +28,7 @@
 
 ;; by 守岡 知彦 <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)