1532 |
(setq found-error t) |
(setq found-error t) |
1533 |
(setq error-string (format "%s\n%s\nCannot handle this event: %s" |
(setq error-string (format "%s\n%s\nCannot handle this event: %s" |
1534 |
error-val error-string e)) |
error-val error-string e)) |
1535 |
(message error-string)))) |
(message "%s" error-string)))) |
1536 |
(if found-error |
(if found-error |
1537 |
(save-current-buffer |
(save-current-buffer |
1538 |
(set-buffer (get-buffer-create "*icalendar-errors*")) |
(set-buffer (get-buffer-create "*icalendar-errors*")) |