X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/8678d9e413593b0abab296551a20589745c459da..db4613576d3115aa320f0293d081ce98baa06acd:/lisp/calendar/cal-mayan.el

diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index 283c68cb32..cf3fc064b6 100644
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -1,7 +1,7 @@
 ;;; cal-mayan.el --- calendar functions for the Mayan calendars
 
-;; Copyright (C) 1992-1993, 1995, 1997, 2001-2011
-;;   Free Software Foundation, Inc.
+;; Copyright (C) 1992-1993, 1995, 1997, 2001-2015 Free Software
+;; Foundation, Inc.
 
 ;; Author: Stewart M. Clamen <clamen@cs.cmu.edu>
 ;;         Edward M. Reingold <reingold@cs.uiuc.edu>
@@ -132,9 +132,6 @@ but some use 1137140.  Using 1232041 gives you Spinden's correlation; using
   (message "Mayan date: %s"
            (calendar-mayan-date-string (calendar-cursor-to-date t))))
 
-(define-obsolete-function-alias 'calendar-print-mayan-date
-  'calendar-mayan-print-date "23.1")
-
 (defun calendar-mayan-read-haab-date ()
   "Prompt for a Mayan haab date."
   (let* ((completion-ignore-case t)
@@ -179,9 +176,6 @@ Echo Mayan date unless NOECHO is non-nil."
         (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
   (or noecho (calendar-mayan-print-date)))
 
-(define-obsolete-function-alias 'calendar-next-haab-date
-  'calendar-mayan-next-haab-date "23.1")
-
 ;;;###cal-autoload
 (defun calendar-mayan-previous-haab-date (haab-date &optional noecho)
   "Move cursor to previous instance of Mayan HAAB-DATE.
@@ -194,9 +188,6 @@ Echo Mayan date unless NOECHO is non-nil."
      (1- (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
   (or noecho (calendar-mayan-print-date)))
 
-(define-obsolete-function-alias 'calendar-previous-haab-date
-  'calendar-mayan-previous-haab-date "23.1")
-
 (defun calendar-mayan-haab-to-string (haab)
   "Convert Mayan HAAB date (a pair) into its traditional written form."
   (let ((month (cdr haab)))
@@ -247,9 +238,6 @@ Echo Mayan date unless NOECHO is non-nil."
         (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
   (or noecho (calendar-mayan-print-date)))
 
-(define-obsolete-function-alias 'calendar-next-tzolkin-date
-  'calendar-mayan-next-tzolkin-date "23.1")
-
 ;;;###cal-autoload
 (defun calendar-mayan-previous-tzolkin-date (tzolkin-date &optional noecho)
   "Move cursor to previous instance of Mayan TZOLKIN-DATE.
@@ -262,9 +250,6 @@ Echo Mayan date unless NOECHO is non-nil."
      (1- (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
   (or noecho (calendar-mayan-print-date)))
 
-(define-obsolete-function-alias 'calendar-previous-tzolkin-date
-  'calendar-mayan-previous-tzolkin-date "23.1")
-
 (defun calendar-mayan-tzolkin-to-string (tzolkin)
   "Convert Mayan TZOLKIN date (a pair) into its traditional written form."
   (format "%d %s"
@@ -309,9 +294,6 @@ Echo Mayan date unless NOECHO is non-nil."
       (calendar-goto-date (calendar-gregorian-from-absolute date))
       (or noecho (calendar-mayan-print-date)))))
 
-(define-obsolete-function-alias 'calendar-next-calendar-round-date
-  'calendar-mayan-next-round-date "23.1")
-
 ;;;###cal-autoload
 (defun calendar-mayan-previous-round-date
   (tzolkin-date haab-date &optional noecho)
@@ -330,9 +312,6 @@ Echo Mayan date unless NOECHO is non-nil."
       (calendar-goto-date (calendar-gregorian-from-absolute date))
       (or noecho (calendar-mayan-print-date)))))
 
-(define-obsolete-function-alias 'calendar-previous-calendar-round-date
-  'calendar-mayan-previous-round-date "23.1")
-
 (defun calendar-mayan-long-count-to-absolute (c)
   "Compute the absolute date corresponding to the Mayan Long Count C.
 Long count is a list (baktun katun tun uinal kin)"
@@ -344,9 +323,6 @@ Long count is a list (baktun katun tun uinal kin)"
      ;; Days before absolute date 0.
      (- calendar-mayan-days-before-absolute-zero)))
 
-(define-obsolete-function-alias 'calendar-absolute-from-mayan-long-count
-  'calendar-mayan-long-count-to-absolute "23.1")
-
 (defun calendar-mayan-long-count-common-era (lc)
   "Return non-nil if long count LC represents a date in the Common Era."
   (let ((base (calendar-mayan-long-count-from-absolute 1)))
@@ -377,9 +353,6 @@ Echo Mayan date unless NOECHO is non-nil."
     (calendar-mayan-long-count-to-absolute date)))
   (or noecho (calendar-mayan-print-date)))
 
-(define-obsolete-function-alias 'calendar-goto-mayan-long-count-date
-  'calendar-mayan-goto-long-count-date "23.1")
-
 (defvar date)
 
 ;; To be called from diary-list-sexp-entries, where DATE is bound.