chiark / gitweb /
el/dot-emacs.el: Use more recent names for `calendar' access functions.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 23 Apr 2020 09:15:34 +0000 (10:15 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 23 Apr 2020 09:17:27 +0000 (10:17 +0100)
These changed back in Emacs 23, and the compatibility aliases don't
exist in Emacs 26 (why?!).

el/dot-emacs.el

index 51d77d91e3d501b190a954a729e6ad7fd14d1d1d..9688aa8551ea81cd998afe80bc8e0bf871337e56 100644 (file)
@@ -355,9 +355,9 @@ (defun mdw-discordian-date (date)
         (months ["Chaos" "Discord" "Confusion"
                  "Bureaucracy" "Aftermath"])
         (day-count [0 31 59 90 120 151 181 212 243 273 304 334])
-        (year (- (extract-calendar-year date) 1900))
-        (month (1- (extract-calendar-month date)))
-        (day (1- (extract-calendar-day date)))
+        (year (- (calendar-extract-year date) 1900))
+        (month (1- (calendar-extract-month date)))
+        (day (1- (calendar-extract-day date)))
         (julian (+ (aref day-count month) day))
         (dyear (+ year 3066)))
     (if (and (= month 1) (= day 28))