Re-introduce the org-publish-validate-link function.

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2008-11-02  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-publish.el (org-publish-validate-link): Function
+	re-introduced.
 
 2008-11-02  Charles Sebold  <csebold@gmail.com>
 

lisp/org-publish.el

@@ -364,6 +364,10 @@ Also set it if the optional argument REFRESH is non-nil."
     (setq org-publish-files-alist
 	  (org-publish-get-files org-publish-project-alist))))
 
+(defun org-publish-validate-link (link &optional directory)
+  "Check if LINK points to a file in the current project."
+  (assoc (expand-file-name link directory) org-publish-files-alist))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Compatibility aliases