From 90ca3a46fd47de08f1f4471abe433397341ed006 Mon Sep 17 00:00:00 2001 From: Deepak Goel Date: Fri, 13 Mar 2009 19:59:15 +0000 Subject: [PATCH] m-v corrections. --- lisp/org/org-bbdb.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org/org-bbdb.el b/lisp/org/org-bbdb.el index 55200c2ab8c..f9fe216082f 100644 --- a/lisp/org/org-bbdb.el +++ b/lisp/org/org-bbdb.el @@ -225,7 +225,7 @@ italicised, in all other cases it is left unchanged." (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 @@ The anniversaries are assumed to be stored `org-bbdb-anniversary-field'." (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) -- 2.39.5