emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3e6c69de 2/9: Fix icalendar time zone parsing glitch


From: Paul Eggert
Subject: master 3e6c69de 2/9: Fix icalendar time zone parsing glitch
Date: Thu, 16 Dec 2021 14:17:36 -0500 (EST)

branch: master
commit 3e6c69de9d1ae99ebb71eb2ed04bdb9ee42cbb80
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Fix icalendar time zone parsing glitch
    
    * lisp/calendar/icalendar.el (icalendar--decode-isodatetime):
    Use pcase instead of cl-case, as cl-macs might not be loaded.
    Otherwise, a build complains “calendar/icalendar.el:618:57:
    Warning: ‘90’ is a malformed function” and some
    icalendar--decode-isodatetime tests fail.  This fixes a bug
    introduced in 2021-11-21T08:18:57Z!dick.r.chiang@gmail.com.
---
 lisp/calendar/icalendar.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 7a483d4..15778ea 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -645,10 +645,10 @@ FIXME: multiple comma-separated values should be allowed!"
           (setq second (read (substring isodatetimestring 13 15))))
        ;; FIXME: Support subseconds.
         (when (> (length isodatetimestring) 15)
-          (cl-case (aref isodatetimestring 15)
+         (pcase (aref isodatetimestring 15)
             (?Z
              (setq source-zone t))
-            ((?- ?+)
+           ((or ?- ?+)
              (setq source-zone
                    (concat "UTC" (substring isodatetimestring 15))))))
         ;; shift if necessary



reply via email to

[Prev in Thread] Current Thread [Next in Thread]