emacs-orgmode
[Top][All Lists]
Advanced

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

[Orgmode] [PATCH] org-bbdb: Be lenient. Ignore case in anniv class strin


From: Jambunathan K
Subject: [Orgmode] [PATCH] org-bbdb: Be lenient. Ignore case in anniv class string.
Date: Mon, 09 Aug 2010 09:02:07 +0530
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.91 (windows-nt)

Permit bbdb entries like '1973-06-22 Birthday'. i.e., Ignore the case of
anniv class.

ps: Have I mixed up tabs/spaces and/or indentations? Kindly point me to
the emacs settings for editing org elisp files.

>From 8ca5dcf3dbc8fed1cdba105f0f15513c04e289a2 Mon Sep 17 00:00:00 2001
From: Jambunathan K <address@hidden>
Date: Mon, 9 Aug 2010 08:44:44 +0530
Subject: [PATCH] org-bbdb: Be lenient. Ignore case in anniv class string.

2010-08-09  Jambunathan K  <address@hidden>

* org-bbdb.el (org-bbdb-anniversaries): Ignore case while looking up
  org-bbdb-anniversary-format-alist.

TINYCHANGE
---
 lisp/org-bbdb.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el
index a86091e..59cec32 100644
--- a/lisp/org-bbdb.el
+++ b/lisp/org-bbdb.el
@@ -322,8 +322,8 @@ This is used by Org to re-create the anniversary hash 
table."
         (when rec
           (let* ((class (or (nth 2 rec)
                             org-bbdb-default-anniversary-format))
-                 (form (or (cdr (assoc class
-                                       org-bbdb-anniversary-format-alist))
+                 (form (or (cdr (assoc-ignore-case
+                                class org-bbdb-anniversary-format-alist))
                            class))     ; (as format string)
                  (name (nth 1 rec))
                  (years (- y (car rec)))
-- 
1.7.0.4

Jambunathan K.

reply via email to

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