From 69d2d4e130cd88e9b53f2c3afcd1480ba59979c6 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 28 Apr 2012 19:16:59 +0200 Subject: [PATCH] org-compat.el: Silent the byte-compiler about a warning related to XEmacs support. * org-compat.el (org-find-library-name): Silent the byte-compiler about a warning related to XEmacs support. --- lisp/org-compat.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index ce72e25d9..735f62a72 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -32,6 +32,7 @@ (eval-when-compile (require 'cl)) +(require 'find-func) (require 'org-macs) (declare-function find-library-name "find-func" (library)) @@ -337,8 +338,13 @@ Works on both Emacs and XEmacs." ; XEmacs does not have `find-library-name' (flet ((find-library-name-helper (filename ignored-codesys) filename) - (find-library-name (library) - (find-library library nil 'find-library-name-helper))) + (find-library-name + (library) + ;; Prevent Emacs compiler to complain about calling + ;; find-library-name with three arguments, as we need need + ;; to do in Xemacs + (org-no-warnings + (find-library library nil 'find-library-name-helper)))) (file-name-directory (find-library-name library))))) (defun org-count-lines (s) -- 2.11.4.GIT