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
