From: hokomo <hokomo@airmail.cc>
Date: Mon, 27 Jun 2022 08:03:30 +0000 (+0200)
Subject: Fix detecting dotted pairs in icalendar-export-region
X-Git-Tag: emacs-29.0.90~1447^2~1426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c21487b2bed3bb986f0dcbdca5e4561f87a77ca8;p=emacs.git

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
---

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