]> code.delx.au - gnu-emacs/blobdiff - lisp/calendar/cal-persia.el
Update copyright year to 2015
[gnu-emacs] / lisp / calendar / cal-persia.el
index a8b3f180e0f5341d56d607a3f1ee2ae9dfef5e53..542dea64e03631b0d3b5840e2f7a72c627554396 100644 (file)
@@ -1,6 +1,6 @@
 ;;; cal-persia.el --- calendar functions for the Persian calendar
 
-;; Copyright (C) 1996-1997, 2001-201 Free Software Foundation, Inc.
+;; Copyright (C) 1996-1997, 2001-2015 Free Software Foundation, Inc.
 
 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
 ;; Maintainer: Glenn Morris <rgm@gnu.org>
@@ -87,9 +87,6 @@ Gregorian date Sunday, December 31, 1 BC."
           (calendar-persian-last-day-of-month m year))
          day))))                        ; days so far this month
 
-(define-obsolete-function-alias 'calendar-absolute-from-persian
-  'calendar-persian-to-absolute "23.1")
-
 (defun calendar-persian-year-from-absolute (date)
   "Persian year corresponding to the absolute DATE."
   (let* ((d0                   ; prior days since start of 2820 cycles
@@ -163,9 +160,6 @@ Gregorian date Sunday, December 31, 1 BC."
   (message "Persian date: %s"
            (calendar-persian-date-string (calendar-cursor-to-date t))))
 
-(define-obsolete-function-alias 'calendar-print-persian-date
-  'calendar-persian-print-date "23.1")
-
 (defun calendar-persian-read-date ()
   "Interactively read the arguments for a Persian date command.
 Reads a year, month, and day."
@@ -192,9 +186,6 @@ Reads a year, month, and day."
                (lambda (x) (and (< 0 x) (<= x last))))))
     (list (list month day year))))
 
-(define-obsolete-function-alias 'persian-prompt-for-date
-  'calendar-persian-read-date "23.1")
-
 ;;;###cal-autoload
 (defun calendar-persian-goto-date (date &optional noecho)
   "Move cursor to Persian date DATE.
@@ -204,8 +195,6 @@ Echo Persian date unless NOECHO is non-nil."
                        (calendar-persian-to-absolute date)))
   (or noecho (calendar-persian-print-date)))
 
-(define-obsolete-function-alias 'calendar-goto-persian-date
-  'calendar-persian-goto-date "23.1")
 
 (defvar date)