[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Fix for org-agenda-cleanup-fancy-diary

From: Erik Hetzner
Subject: [Orgmode] Fix for org-agenda-cleanup-fancy-diary
Date: Tue, 31 Mar 2009 13:28:41 -0700
User-agent: Wanderlust/2.15.6 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Goj┼Ź) APEL/10.7 Emacs/22.2 (i486-pc-linux-gnu) MULE/5.0 (SAKAKI)

Hi all -

Thanks for the software. I am finally sending in this patch, as I have
gotten tired of patching with each release!

This fixes a problem I have with diary entries displaying very long
information in my schedule. I have diary entries imported from ical
format which have multiple paragraphs of descriptive information.

Of course, perhaps there are people who want the long display, so
maybe it should be an option?

Erik Hetzner

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 79434bd..60805cf 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3385,7 +3385,7 @@ date.  It also removes lines that contain only 
     (re-search-forward "\n=+$" nil t)
     (delete-region (point-min) (min (point-max) (1+ (match-end 0)))))
   (goto-char (point-min))
-  (while (re-search-forward "^ +\n" nil t)
+  (while (re-search-forward "^ .*\n" nil t)
     (replace-match ""))
   (goto-char (point-min))
   (if (re-search-forward "^Org-mode dummy\n?" nil t)
;; Erik Hetzner, California Digital Library
;; gnupg key id: 1024D/01DB07E3

Attachment: pgprJA34cIlIH.pgp
Description: PGP signature

reply via email to

[Prev in Thread] Current Thread [Next in Thread]