From: Glenn Morris Date: Fri, 26 Nov 2010 03:14:03 +0000 (-0800) Subject: * lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~104 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92c56fe7fd59e7bb8c374c71db82f3a941e47181;p=emacs.git * lisp/calendar/diary-lib.el (diary-outlook-format-1): Fix match-strings. --- diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 9551174558d..159682c2e63 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -309,11 +309,10 @@ If this variable is nil, years must be written in full." "Return a replace-match template for an element of `diary-outlook-formats'. Returns a string using match elements 1-5, where: 1 = month name, 2 = day, 3 = year, 4 = time, 5 = location; also uses -%s = message subject. -The argument BODY is not used." - (let* ((monthname (match-string 1)) - (day (match-string 2)) - (year (match-string 3)) +%s = message subject. BODY is the string from which the matches derive." + (let* ((monthname (match-string 1 body)) + (day (match-string 2 body)) + (year (match-string 3 body)) ;; Blech. (month (catch 'found (dotimes (i (length calendar-month-name-array))