[MD:5236] byte-recompile-directory で .svn 等を無視させたい

["M.Fujii" <boochang@xxxxxxxxxxxx>]

藤井です。

Meadow のソース変更後のビルドで elisp も更新された場合は、

$ make recompile
$ make install

と実行すると、更新された elisp だけがリコンパイルされます。このとき、
.svn 以下のディレクトリもスキャンの対象になるので、Subversion のワーキ
ングコピーでこれを行なうとメッセージ出力量が相当増えます。

現在は RCS と CVS がサブディレクトリであれば、これらのディレクトリ以下
はスキャンしないようになっていますが、以下のように変更して .svn のよう
に `.' で始まるサブディレクトリも無視するようにしたいと思います。宜しい
でしょうか？

なお、Emacs CVS HEAD も `.' で始まるディレクトリを無視するようになって
いました。

Index: lisp/emacs-lisp/bytecomp.el
===================================================================
--- lisp/emacs-lisp/bytecomp.el	(revision 3353)
+++ lisp/emacs-lisp/bytecomp.el	(working copy)
@@ -1294,16 +1294,17 @@
 	       source dest)
 	   (dolist (file files)
 	     (setq source (expand-file-name file directory))
-	     (if (and (not (member file '("." ".." "RCS" "CVS")))
+	     (if (and (not (member file '("RCS" "CVS")))
+		      (not (eq ?\. (aref file 0)))
 		      (file-directory-p source)
 		      (not (file-symlink-p source)))
-	     ;; This file is a subdirectory.  Handle them differently.
+		 ;; This file is a subdirectory.  Handle them differently.
 		 (when (or (null arg)
 			   (eq 0 arg)
 			   (y-or-n-p (concat "Check " source "? ")))
 		   (setq directories
 			 (nconc directories (list source))))
-	     ;; It is an ordinary file.  Decide whether to compile it.
+	       ;; It is an ordinary file.  Decide whether to compile it.
 	       (if (and (string-match emacs-lisp-file-regexp source)
 			(file-readable-p source)
 			(not (auto-save-file-name-p source))

--
藤井 正行 / Masayuki FUJII ( boochang@xxxxxxxxxxxx )