マルチファイルパッケージのバイトコンパイル：「関数が定義されているかどうかは不明です」

（ばかげた）パッケージに次のファイルがあるとします。

ファイルtest1.el：

;;; test1.el ---                                   

;;; Code:

(defvar test-var1)

(defun test-fun1 (test)
  nil)

(require 'test2 "./test2.el)

(provide 'test1)
;;; test1.el ends here

ファイルtest2.el：

;;; test2.el ---  

;;; Code:

(defun test-fun2 ()
  (let ((test test-var1))
    (test-fun1 test)))

(provide 'test2)
;;; test2.el ends here

それなら私は走ります：

emacs -batch -f batch-byte-compile *.el

次の結果が得られます。

Compiling .../test1.el...
Wrote .../test1.elc
Compiling .../test2.el...

In test-fun2:
test2.el:9:15:Warning: reference to free variable `test-var1'

In end of data:
test2.el:14:1:Warning: the function `test-fun1' is not known to be defined.
Wrote .../test2.elc

私はこれらの警告が表示される理由を理解し、それらは単なる警告であることを理解しています。ただし、この種の警告をすべて無視することで、関数名のタイプミスを見逃しやすくなります。

(require 'test2)行を追加test2.elすることで修正できると思いました。ただし、この場合は次のようになります。

Compiling .../test1.el...

In toplevel form:
test1.el:10:1:Error: Recursive `require' for feature `test2'
Compiling .../test2.el...

In toplevel form:
test2.el:5:1:Error: Recursive `require' for feature `test1'

これは不可解です。というのは、require再帰的なロードを回避することが目的であると私は思ったからです。私はそれrequireがloadコンパイル時のように動作していると思います。

これらの警告を取り除くための良い（そして安全な）方法は何ですか？

マニュアルは回避策を提供しますが（私はそれを以下より良い回答として投稿します）、最終的には、解決策をかなり自動化したいと思います（必要なすべての関数と変数をリストする必要はありません）すべてのファイル）。

理想的なソリューションは、emacsに組み込まれるか、Caskで提供されます。それが存在しない場合は、もちろん利用可能なものを利用します。

必要について

require再帰的なロードを回避するためのものではなく、反復的なロードを回避するためのものです。したがって、ここでは問題を解決しません。

問題について

（私の意見では）これに取り組む正しい方法は、相互依存を避けることです。

test1あなたの例のファイルは要求する理由がありませんtest2。それが実際のパッケージに当てはまらない場合でも、ファイル間でコードを委任する方法を再設計できます。一般に、ファイル間の相互依存を回避することは可能です。

回避策

1. 相互依存関係を回避できない場合、マニュアルに は解決策が記載されています。必要な関数/変数ごとに、次のような行を追加する必要があります。

   (declare-function test-fun1 "./test1.el")
   (defvar test-var1)
   

2. 別のオプションはrequire、ファイルを条件付きでのみにすることです。このようなものをファイルに追加します1：

   (defvar test1-is-loading t)
   (unless (and (boundp 'test2-is-loading)
                test2-is-loading)
     (require 'test2))
   

   そして、このような何かをファイルする2：

   (defvar test2-is-loading t)
   (unless (and (boundp 'test1-is-loading)
                test1-is-loading)
     (require 'test1))
   

あなたの例は奇妙です：

• あなたはrequireでTEST2 終わりのに対し、TEST1のrequire「常に」ファイルの先頭になければなりません。
• test1はtest2関数を呼び出さないため、動作するためにtest2は必要ありません（したがってrequire、不必要に動作します）require。

IOW、あなたはあなたrequireの後ろを持っています。

マニュアルでは、追加示唆declare-functionしてdefvar行。

結果のtest2ファイルは次のとおりです。

;;; test2.el ---  

;;; Code:

(declare-function test-fun1 "./test1.el")
(defvar test-var1)

(defun test-fun2 ()
  (let ((test test-var1))
    (test-fun1 test)))

(provide 'test2)
;;; test2.el ends here

ただし、これは、「親」ファイルで定義されているすべての関数とすべての変数に対して行う必要があります。