From xemacs-m  Sun Jun 15 00:28:09 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA09610
	for <xemacs-beta@xemacs.org>; Sun, 15 Jun 1997 00:28:08 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id WAA05873;
	Sat, 14 Jun 1997 22:28:08 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Cc: =?ISO-2022-JP?B?GyRCPGkyLBsoQiAbJEJDTkknGyhC?= <morioka@jaist.ac.jp>
Subject: [PATCH] non-portability in canna.el
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 14 Jun 1997 22:28:07 -0700
Message-ID: <m2pvto5taw.fsf@altair.xemacs.org>
Lines: 30
X-Mailer: Gnus v5.4.56/XEmacs 20.3(beta8) - "Copenhagen"

There is an unguarded call to the function dynamic-link in
mule/canna.el that should probably be guarded.

1997-06-14  Steven L Baur  <steve@altair.xemacs.org>

	* mule/canna.el: Guard call to function dynamic-link, which
	doesn't exist in XEmacs/Mule.

Index: lisp/mule/canna.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/mule/canna.el,v
retrieving revision 1.6
diff -u -r1.6 canna.el
--- canna.el	1997/04/27 19:30:30	1.6
+++ canna.el	1997/06/15 05:20:00
@@ -40,6 +40,7 @@
 
 ;; by $B<i2,(B $BCNI'(B <morioka@jaist.ac.jp> 1996/11/11
 (or (boundp 'CANNA)
+    (not (fboundp 'dynamic-link))
     (let ((handle (dynamic-link (expand-file-name "canna.so" exec-directory))))
       (dynamic-call "emacs_canna_init" handle))
     )


(After looking at the inserted output of `cvs diff' ...) Hmm, is that
the way it's supposed to work?
-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

