]> code.delx.au - gnu-emacs/blobdiff - lisp/calendar/cal-islam.el
Merge branch 'emacs-24'.
[gnu-emacs] / lisp / calendar / cal-islam.el
index 342d195182365eeb16a74159ecc456a9ac8d7903..00e54658fb249e5b6491a1f65d169447cb40651a 100644 (file)
@@ -1,6 +1,6 @@
 ;;; cal-islam.el --- calendar functions for the Islamic calendar
 
-;; Copyright (C) 1995, 1997, 2001-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1997, 2001-2014 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."
        leap-years-in-cycle            ; leap days this cycle
        (1- calendar-islamic-epoch)))) ; days before start of calendar
 
-(define-obsolete-function-alias 'calendar-absolute-from-islamic
-  'calendar-islamic-to-absolute "23.1")
-
 (defun calendar-islamic-from-absolute (date)
   "Compute the Islamic date (month day year) corresponding to absolute DATE.
 The absolute date is the number of days elapsed since the (imaginary)
@@ -141,9 +138,6 @@ Driven by the variable `calendar-date-display-form'."
         (message "Date is pre-Islamic")
       (message "Islamic date (until sunset): %s" i))))
 
-(define-obsolete-function-alias 'calendar-print-islamic-date
-  'calendar-islamic-print-date "23.1")
-
 (defun calendar-islamic-read-date ()
   "Interactively read the arguments for an Islamic date command.
 Reads a year, month, and day."
@@ -177,9 +171,6 @@ Reads a year, month, and day."
                        (calendar-islamic-to-absolute date)))
   (or noecho (calendar-islamic-print-date)))
 
-(define-obsolete-function-alias 'calendar-goto-islamic-date
-  'calendar-islamic-goto-date "23.1")
-
 (defvar displayed-month)                ; from calendar-generate
 (defvar displayed-year)
 
@@ -260,9 +251,6 @@ marked in the calendar.  This function is provided for use with
                         diary-islamic-entry-symbol
                         'calendar-islamic-from-absolute))
 
-(define-obsolete-function-alias 'list-islamic-diary-entries
-  'diary-islamic-list-entries "23.1")
-
 (autoload 'calendar-mark-1 "diary-lib")
 
 ;;;###diary-autoload
@@ -273,9 +261,6 @@ passed to `calendar-mark-visible-date' as MARK."
   (calendar-mark-1 month day year 'calendar-islamic-from-absolute
                    'calendar-islamic-to-absolute color))
 
-(define-obsolete-function-alias 'mark-islamic-calendar-date-pattern
-  'calendar-islamic-mark-date-pattern "23.1")
-
 (autoload 'diary-mark-entries-1 "diary-lib")
 
 ;;;###diary-autoload
@@ -288,9 +273,6 @@ window.  See `diary-islamic-list-entries' for more information."
                         diary-islamic-entry-symbol
                         'calendar-islamic-from-absolute))
 
-(define-obsolete-function-alias
-  'mark-islamic-diary-entries 'diary-islamic-mark-entries "23.1")
-
 (autoload 'diary-insert-entry-1 "diary-lib")
 
 ;;;###cal-autoload
@@ -303,9 +285,6 @@ Prefix argument ARG makes the entry nonmarking."
                         diary-islamic-entry-symbol
                         'calendar-islamic-from-absolute))
 
-(define-obsolete-function-alias 'insert-islamic-diary-entry
-  'diary-islamic-insert-entry "23.1")
-
 ;;;###cal-autoload
 (defun diary-islamic-insert-monthly-entry (arg)
   "Insert a monthly diary entry.
@@ -316,9 +295,6 @@ Prefix argument ARG makes the entry nonmarking."
                         diary-islamic-entry-symbol
                         'calendar-islamic-from-absolute))
 
-(define-obsolete-function-alias 'insert-monthly-islamic-diary-entry
-  'diary-islamic-insert-monthly-entry "23.1")
-
 ;;;###cal-autoload
 (defun diary-islamic-insert-yearly-entry (arg)
   "Insert an annual diary entry.
@@ -328,8 +304,6 @@ Prefix argument ARG makes the entry nonmarking."
   (diary-insert-entry-1 'yearly arg calendar-islamic-month-name-array
                         diary-islamic-entry-symbol
                         'calendar-islamic-from-absolute))
-(define-obsolete-function-alias
-  'insert-yearly-islamic-diary-entry 'diary-islamic-insert-yearly-entry "23.1")
 
 (defvar date)