From mboxrd@z Thu Jan  1 00:00:00 1970
From: Achim Gratz <Stromeko@nexgo.de>
Subject: Re: Org release 7.8.07 (BUGFIX-only release)
Date: Mon, 02 Apr 2012 21:53:08 +0200
Message-ID: <87vclhap23.fsf@Rainer.invalid>
References: <87ty15ulqc.fsf@altern.org> <87ehs8kir5.fsf@Rainer.invalid>
	<87ehs7hmqb.fsf@gnu.org> <87r4w7pwhm.fsf@Rainer.invalid>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:50629)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1SEnJc-0001xh-Uh
	for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 15:53:26 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1SEnJa-0000fH-E5
	for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 15:53:24 -0400
Received: from plane.gmane.org ([80.91.229.3]:57435)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1SEnJa-0000ew-6n
	for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 15:53:22 -0400
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1SEnJX-0000tj-Ia
	for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 21:53:19 +0200
Received: from pd9eb3e8c.dip.t-dialin.net ([217.235.62.140])
	by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Mon, 02 Apr 2012 21:53:19 +0200
Received: from Stromeko by pd9eb3e8c.dip.t-dialin.net with local (Gmexim 0.1
	(Debian)) id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Mon, 02 Apr 2012 21:53:19 +0200
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Achim Gratz writes:
> (defmacro org-find-library-name (library)
>   (if (fboundp 'find-library-name)
>       `(file-name-directory (find-library-name ,library))
>     ; XEmacs does not have `find-library-name'
>     `(file-name-directory (find-library ,library nil (lambda (lib ignore) lib)))))

Scratch that, of course it needs to evaluate to a function... better
something like this:

(defmacro org-compat-when-fboundp (symbol form1 form2)
  (if (fboundp symbol)
      form1
    form2))
(org-compat-when-fboundp find-library-name
    (declare-function find-library-name "find-func"  (library))
  (declare-function find-library "lib-complete"  (library codesys func)))
(defun org-find-library-name (library)
  (org-compat-when-fboundp find-library-name
      (file-name-directory (find-library-name library))
    ; XEmacs does not have `find-library-name'
    (file-name-directory (find-library library nil (lambda (lib ignore) lib)))))


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptations for KORG EX-800 and Poly-800MkII V0.9:
http://Synth.Stromeko.net/Downloads.html#KorgSDada