[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] * org-publish.el (org-publish-find-date): optimization
From: |
Manuel Giraud |
Subject: |
[O] [PATCH] * org-publish.el (org-publish-find-date): optimization |
Date: |
Tue, 19 Apr 2011 17:41:29 +0200 |
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
- [O] [PATCH] * org-publish.el (org-publish-find-date): optimization,
Manuel Giraud <=