From c21487b2bed3bb986f0dcbdca5e4561f87a77ca8 Mon Sep 17 00:00:00 2001 From: hokomo Date: Mon, 27 Jun 2022 10:03:30 +0200 Subject: [PATCH] Fix detecting dotted pairs in icalendar-export-region * lisp/calendar/icalendar.el (icalendar-export-region): Fix detecting dotted pairs (bug#56241). Copyright-paperwork-exempt: yes --- 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 1a5a071e202..cf542939897 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -1144,7 +1144,8 @@ FExport diary data into iCalendar file: ") (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.39.5