[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/org org-bbdb.el
From: |
D. Goel |
Subject: |
[Emacs-diffs] emacs/lisp/org org-bbdb.el |
Date: |
Fri, 13 Mar 2009 19:59:15 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: D. Goel <deego> 09/03/13 19:59:15
Modified files:
lisp/org : org-bbdb.el
Log message:
m-v corrections.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-bbdb.el?cvsroot=emacs&r1=1.24&r2=1.25
Patches:
Index: org-bbdb.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-bbdb.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- org-bbdb.el 2 Feb 2009 20:57:14 -0000 1.24
+++ org-bbdb.el 13 Mar 2009 19:59:15 -0000 1.25
@@ -225,7 +225,7 @@
(defun org-bbdb-anniv-extract-date (time-str)
"Convert YYYY-MM-DD to (month date year).
Argument TIME-STR is the value retrieved from BBDB."
- (multiple-value-bind (y m d) (bbdb-split time-str "-")
+ (multiple-value-bind (y m d) (values-list (bbdb-split time-str "-"))
(list (string-to-number m)
(string-to-number d)
(string-to-number y))))
@@ -258,7 +258,7 @@
(while annivs
(setq split (org-bbdb-anniv-split (pop annivs)))
(multiple-value-bind (m d y)
- (funcall org-bbdb-extract-date-fun (car split))
+ (values-list (funcall org-bbdb-extract-date-fun (car split)))
(setq tmp (gethash (list m d) org-bbdb-anniv-hash))
(puthash (list m d) (cons (list y
(bbdb-record-name rec)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/org org-bbdb.el,
D. Goel <=