Hi, elp reports important speed gain with this patch to find an org file date.
--- lisp/org-publish.el | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lisp/org-publish.el b/lisp/org-publish.el index e944eea..7470ee2 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -852,7 +852,7 @@ system's modification time. It returns time in `current-time' format." (let ((visiting (find-buffer-visiting file))) (save-excursion - (switch-to-buffer (or visiting (find-file file))) + (switch-to-buffer (or visiting (find-file-noselect file nil t))) (let* ((plist (org-infile-export-plist)) (date (plist-get plist :date))) (unless visiting -- 1.7.3.5