# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190765417 0
# Node ID 527b0ddd39b90019e2ec87e60eb5e1426bc9823f
# Parent  ebd3a386d39ca310bd697888555b9b01d4a3b957
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Use `mapc' rather than `mapcar'.

diff -r ebd3a386d39c -r 527b0ddd39b9 lisp/calendar/icalendar.el
--- a/lisp/calendar/icalendar.el	Wed Sep 26 00:09:32 2007 +0000
+++ b/lisp/calendar/icalendar.el	Wed Sep 26 00:10:17 2007 +0000
@@ -1531,24 +1531,24 @@
            ("%t" STATUS      icalendar-import-format-status)
            ("%u" URL         icalendar-import-format-url))))
     ;; convert the specifiers in the format string
-    (mapcar (lambda (i)
-              (let* ((spec (car i))
-                     (prop (cadr i))
-                     (format (car (cddr i)))
-                     (contents (icalendar--get-event-property event prop))
-                     (formatted-contents ""))
-                (when (and contents (> (length contents) 0))
-                  (setq formatted-contents
-                        (icalendar--rris "%s"
-                                         (icalendar--convert-string-for-import
-                                          contents)
-                                         (symbol-value format)
-                                         t t)))
-                (setq string (icalendar--rris spec
-                                              formatted-contents
-                                              string
-                                              t t))))
-            conversion-list)
+    (mapc (lambda (i)
+	    (let* ((spec (car i))
+		   (prop (cadr i))
+		   (format (car (cddr i)))
+		   (contents (icalendar--get-event-property event prop))
+		   (formatted-contents ""))
+	      (when (and contents (> (length contents) 0))
+		(setq formatted-contents
+		      (icalendar--rris "%s"
+				       (icalendar--convert-string-for-import
+					contents)
+				       (symbol-value format)
+				       t t)))
+	      (setq string (icalendar--rris spec
+					    formatted-contents
+					    string
+					    t t))))
+	  conversion-list)
     string))
 
 (defun icalendar--convert-ical-to-diary (ical-list diary-file
@@ -1637,11 +1637,11 @@
              (rdate
               (icalendar--dmsg "rdate event")
               (setq diary-string "")
-              (mapcar (lambda (datestring)
-                        (setq diary-string
-                              (concat diary-string
-                                      (format "......"))))
-                      (icalendar--split-value rdate)))
+              (mapc (lambda (datestring)
+		      (setq diary-string
+			    (concat diary-string
+				    (format "......"))))
+		    (icalendar--split-value rdate)))
              ;; non-recurring event
              ;; all-day event
              ((not (string= start-d end-d))