Avoid loading (and failing) symbolic links (interlocking files) * testing/org-test.el: During test development various interlocking files may be present in testing/lisp directory (since they are being edited by emacs). Currently org-test-load will attempt to load these and fail.

This commit is contained in:
Martyn Jago 2011-11-13 14:43:34 +00:00 committed by Eric Schulte
parent f98ee77b38
commit 0cc18ed120

View file

@ -274,9 +274,10 @@ otherwise place the point at the beginning of the inserted text."
(mapc
(lambda (path)
(if (file-directory-p path)
(rld path)
(rld path)
(catch 'missing-test-dependency
(load-file path))))
(when (string-match "^[A-Za-z].*\\.el$" path)
load-file path))))
(directory-files base 'full
"^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$"))))
(rld (expand-file-name "lisp" org-test-dir))