Re: Agenda is slow because of vc-mode

From: David Maus <dmaus@ictsoc.de>
To: Daniel Clemente <n142857@gmail.com>
Cc: Org-mode Org-Mode <emacs-orgmode@gnu.org>
Subject: Re: Agenda is slow because of vc-mode
Date: Fri, 18 Jun 2010 18:19:48 +0200	[thread overview]
Message-ID: <8739wkxqhn.wl%dmaus@ictsoc.de> (raw)
In-Reply-To: <AANLkTilQeIxPEi2xsDZluGK1V3aBwT1FoRo3OGeZChQS@mail.gmail.com>

[-- Attachment #1.1: Type: text/plain, Size: 1590 bytes --]

Daniel Clemente wrote:
>Hi.

>  I have a shell script which exports my agenda to a file. It's pretty
>slow: about 90 seconds. There are many files (200 .org files, 76k
>lines, 3'6 Mb, 1600 open tasks) but the performance should be better.
>  I found a way to bring it down to 11 seconds: temporarily disable
>the version control tools I'm using (bazaar, git). To test, just
>change their names so that Emacs can't run them.

>  Since this slowness is caused by vc-mode, I wonder if it's possible
>for Org to open the agenda files without enabling vc-mode, for vc-mode
>is not necessary for org-mode.
>  I fear not, because org-agenda-get-day-entries uses
>org-get-agenda-file-buffer to open a buffer normally, and this buffer
>should be fully functional for later usage.

That's indeed the problem: Its hard to figure a default options for
such functionality.

>  As a hack, I used (defun vc-find-file-hook () nil) in my script;
>this does the trick.

Instead of overloading `vc-find-file-hook' you could use something
like this:

(defun dmj/disable-vc-for-agenda-files-hook ()
  "Disable vc-mode for Org agenda files."
  (if (and (fboundp 'org-agenda-file-p)
	   (org-agenda-file-p (buffer-file-name)))
      (remove-hook 'find-file-hook 'vc-find-file-hook)
    (add-hook 'find-file-hook 'vc-find-file-hook)))

(add-hook 'find-file-hook 'dmj/disable-vc-for-agenda-files-hook)

It removes vc-find-file-hook from the list of find-file-hooks when the
file is question is an agenda file.

HTH
  -- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de

[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode