Re: [O] Org release 7.8.07 (BUGFIX-only release)

[Achim Gratz]

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