[PATCH] * org-publish.el (org-publish-find-date): optimization

[PATCH] * org-publish.el (org-publish-find-date): optimization

[Manuel Giraud]

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

Re: [PATCH] * org-publish.el (org-publish-find-date): optimization

[Bernt Hansen]

Manuel Giraud <manuel.giraud@univ-nantes.fr> writes:

> Hi,
>
> elp reports important speed gain with this patch to find an org file date.

Hi Manual,

It would be useful to post the elp results too so we can see the
differences before and after your patch.

Regards,
Bernt

Re: [PATCH] * org-publish.el (org-publish-find-date): optimization

[Manuel Giraud]

Bernt Hansen <bernt@norang.ca> writes:

> Manuel Giraud <manuel.giraud@univ-nantes.fr> writes:
>
>> Hi,
>>
>> elp reports important speed gain with this patch to find an org file date.
>
> Hi Manual,
>
> It would be useful to post the elp results too so we can see the
> differences before and after your patch.

Right. Here there are:

org-publish-find-date-before  100         0.5272890000  0.0052728900
org-publish-find-date-after   100         0.2037700000  0.0020377000

Done with:
(dotimes (n 100)
  (org-publish-find-date-before "~/foo.org")
  (org-publish-find-date-after "~/foo.org"))

and foo.org is about 300 lines.

-- 
Manuel Giraud

[Accepted] * org-publish.el (org-publish-find-date): optimization

[Carsten Dominik]

Patch 753 (http://patchwork.newartisans.com/patch/753/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C1303227689-950-1-git-send-email-manuel.giraud%40univ-nantes.fr%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [O] * org-publish.el (org-publish-find-date): optimization
> Date: Tue, 19 Apr 2011 20:41:29 -0000
> From: Manuel Giraud <manuel.giraud@univ-nantes.fr>
> X-Patchwork-Id: 753
> Message-Id: <1303227689-950-1-git-send-email-manuel.giraud@univ-nantes.fr>
> To: emacs-orgmode@gnu.org
> Cc: Manuel Giraud <manuel.giraud@univ-nantes.fr>
> 
> 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
>