branch: elpa/datetime
commit 10dc9b03abfa07f71ee60f1597e677c3eef2cc20
Author: Paul Pogonyshev <pogonys...@gmail.com>
Commit: Paul Pogonyshev <pogonys...@gmail.com>
Replace `pcase-exhaustive'...
---
datetime.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/datetime.el b/datetime.el
index 3e1f3615f3..7f6456f36f 100644
--- a/datetime.el
+++ b/datetime.el
@@ -655,10 +655,11 @@ to this function.
(when (plist-get rule :end-of-day)
(setq year-day (1+ year-day)))
(push (- (+ (datetime--start-of-day year year-day) (plist-get rule
:time))
- (pcase-exhaustive (plist-get rule :time-definition)
+ (pcase (plist-get rule :time-definition)
(`utc 0)
(`standard (plist-get rule :standard-offset))
- (`wall offset-before))
+ (`wall offset-before)
+ (type (error "Unhandled time definition type `%s'"
type)))
year-base)
transitions)
(push (plist-get rule :after) transitions))))
