mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-01 08:17:34 +00:00
Code

Fix don't load symlinks (Emacs 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

Browse Source
This commit is contained in:
Martyn Jago 2011-11-13 16:03:51 +00:00 committed by Eric Schulte
parent 0cc18ed120
commit 49d6951caa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
testing/org-test.el
View File

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