[Top][All Lists]
[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.
- [Orgmode] [PATCH] org-bbdb: Be lenient. Ignore case in anniv class string.,
Jambunathan K <=