From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: [Accepted] * org-publish.el (org-publish-find-date): optimization Date: Mon, 2 May 2011 11:13:56 +0200 (CEST) Message-ID: <20110502091356.4DB604379F3@u016822.science.uva.nl> References: <1303227689-950-1-git-send-email-manuel.giraud@univ-nantes.fr> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([140.186.70.92]:34077) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGpCY-00074I-AV for emacs-orgmode@gnu.org; Mon, 02 May 2011 05:13:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QGpCX-0005kv-36 for emacs-orgmode@gnu.org; Mon, 02 May 2011 05:13:58 -0400 Received: from u016822.science.uva.nl ([146.50.39.34]:50662) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGpCW-0005kn-SG for emacs-orgmode@gnu.org; Mon, 02 May 2011 05:13:57 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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 > 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 > > 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 >