diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:10:17 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:10:17 +0000 |
| commit | b67b0f7f58838e27627f1c4928eda9ed2567e0a9 (patch) | |
| tree | a366f56ab7796538c1cdb4e600d684af4243298d /lisp/calendar/icalendar.el | |
| parent | 2a78421d93d41c8d569e9d66e59df96f6f59eb51 (diff) | |
| download | emacs-b67b0f7f58838e27627f1c4928eda9ed2567e0a9.tar.gz emacs-b67b0f7f58838e27627f1c4928eda9ed2567e0a9.tar.bz2 emacs-b67b0f7f58838e27627f1c4928eda9ed2567e0a9.zip | |
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/calendar/icalendar.el')
| -rw-r--r-- | lisp/calendar/icalendar.el | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 101aaf96e43..881e7490665 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -1531,24 +1531,24 @@ buffer `*icalendar-errors*'." ("%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 @@ written into the buffer `*icalendar-errors*'." (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)) |