emacs-orgmode
[Top][All Lists]
Advanced

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

[Accepted] [Orgmode] org-agenda: return multiple results when sexp retur


From: Carsten Dominik
Subject: [Accepted] [Orgmode] org-agenda: return multiple results when sexp return a string with "; "
Date: Thu, 4 Nov 2010 13:06:03 +0100 (CET)

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

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C1288805538-13133-1-git-send-email-julien%40danjou.info%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: [Orgmode] org-agenda: return multiple results when sexp return a
>       string with "; "
> Date: Wed, 03 Nov 2010 22:32:18 -0000
> From: Julien Danjou <address@hidden>
> X-Patchwork-Id: 358
> Message-Id: <address@hidden>
> To: address@hidden
> Cc: Julien Danjou <address@hidden>
> 
> When evaluating my %%(org-calendar-holidays) on October 31st, I got a
> line like:
> 
> "Halloween; Daylight Saving Time Ends 3:00am (CEST)"
> 
> And it displays in calendar:
> 3:00 .... Halloween; Daylight Saving Time Ends (CEST)
> 
> This is wrong since Halloween is all day, not only at 3:00.
> 
> Splitting results on "; " allows to have an independant entry on each
> event and displays things correctly.
> 
> Signed-off-by: Julien Danjou <address@hidden>
> 
> ---
> lisp/org.el |    2 +-
>  1 files changed, 1 insertions(+), 1 deletions(-)
> 
> diff --git a/lisp/org.el b/lisp/org.el
> index cb99712..effe9b2 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -15025,7 +15025,7 @@ D may be an absolute day number, or a calendar-type 
> list (month day year)."
>                             (org-current-line)
>                             (buffer-file-name) sexp)
>                       (sleep-for 2))))))
> -    (cond ((stringp result) result)
> +    (cond ((stringp result) (split-string result "; "))
>         ((and (consp result)
>               (not (consp (cdr result)))
>               (stringp (cdr result))) (cdr result))
> 



reply via email to

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