Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit 2bc05e2f authored by Ryan C. Thompson's avatar Ryan C. Thompson

Don't recurse into various special directories.

Mostly version control directories and cache directories and the like.
parent dc4c44b0
......@@ -107,7 +107,15 @@ With optional arg RECURSIVE, do so in all subdirectories as well."
(when recursive
(loop for dir in (directory-files dir 'full)
if (file-directory-p dir)
unless (member* dir '("." "..") :test 'string=)
unless (member* dir '("." ".."
;; This list of dirs to ignore courtesy of ack
;; http://betterthangrep.com/
"autom4te.cache" "blib" "_build"
".bzr" ".cdv" "cover_db" "CVS" "_darcs"
"~.dep" "~.dot" ".git" ".hg" "_MTN"
"~.nib" ".pc" "~.plst" "RCS" "SCCS"
"_sgbak" ".svn")
:test 'string=)
do (el-get-clean-stale-compiled-files dir recursive))))
(defun el-get-byte-compile-from-stdin ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment