Browse Source

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.
Bastien Guerry 13 years ago
parent
commit
69d2d4e130
1 changed files with 8 additions and 2 deletions
  1. 8 2
      lisp/org-compat.el

+ 8 - 2
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)