master c21487b2be: Fix detecting dotted pairs in icalendar-export-region

[Lars Ingebrigtsen]

branch: master
commit c21487b2bed3bb986f0dcbdca5e4561f87a77ca8
Author: hokomo <hokomo@airmail.cc>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 1a5a071e20..cf54293989 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