From 691f34a301359893bcffff8e4e0c8794a1fd5e68 Mon Sep 17 00:00:00 2001 From: hokomo Date: Sat, 25 Jun 2022 09:44:54 +0200 Subject: [PATCH] Fix detecting dotted pairs * lisp/calendar/icalendar.el (icalendar-export-region): Fix detecting dotted pairs. --- lisp/calendar/icalendar.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 1a5a071e20..cf54293989 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -1144,7 +1144,8 @@ icalendar-export-region (cdr contents-n-summary)))) (setq result (concat result header contents alarm "\nEND:VEVENT"))) - (if (consp cns-cons-or-list) + (if (and (consp cns-cons-or-list) + (not (listp (cdr cns-cons-or-list)))) (list cns-cons-or-list) cns-cons-or-list))) ;; handle errors -- 2.35.3