Explorar o código

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.

Martyn Jago %!s(int64=14) %!d(string=hai) anos
pai
achega
0cc18ed120
Modificáronse 1 ficheiros con 3 adicións e 2 borrados
  1. 3 2
      testing/org-test.el

+ 3 - 2
testing/org-test.el

@@ -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))