tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Bastien Guerry 2012-04-28 19:16:59 +02:00
parent 3d3ad17d74
commit 69d2d4e130
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-compat.el
View File

@ -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)