]> code.delx.au - gnu-emacs/blobdiff - lisp/calendar/lunar.el
Update copyright year to 2015
[gnu-emacs] / lisp / calendar / lunar.el
index e2ec46215bec0d33c542e6fd2802d1aa1ed6d374..1e0be16e71cfdb8b2dd9705a83b50357e63d6d77 100644 (file)
@@ -1,7 +1,7 @@
 ;;; lunar.el --- calendar functions for phases of the moon
 
-;; 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: Edward M. Reingold <reingold@cs.uiuc.edu>
 ;; Maintainer: Glenn Morris <rgm@gnu.org>
@@ -228,15 +228,11 @@ use instead of point."
           (lunar-phase-list m1 y1) "\n")))
       (message "Computing phases of the moon...done"))))
 
-;;;###cal-autoload
-(define-obsolete-function-alias 'calendar-phases-of-moon
-  'calendar-lunar-phases "23.1")
-
 ;;;###autoload
 (defun lunar-phases (&optional arg)
   "Display the quarters of the moon for last month, this month, and next month.
 If called with an optional prefix argument ARG, prompts for month and year.
-This function is suitable for execution in a .emacs file."
+This function is suitable for execution in an init file."
   (interactive "P")
   (save-excursion
     (let* ((date (if arg (calendar-read-date t)
@@ -245,9 +241,6 @@ This function is suitable for execution in a .emacs file."
            (displayed-year (calendar-extract-year date)))
       (calendar-lunar-phases))))
 
-;;;###autoload
-(define-obsolete-function-alias 'phases-of-moon 'lunar-phases "23.1")
-
 (defvar date)
 
 ;; To be called from diary-list-sexp-entries, where DATE is bound.
@@ -266,10 +259,6 @@ use when highlighting the day in the calendar."
         (cons mark (concat (lunar-phase-name (nth 2 phase)) " "
                            (cadr phase))))))
 
-;;;###diary-autoload
-(define-obsolete-function-alias 'diary-phases-of-moon
-  'diary-lunar-phases "23.1")
-
 ;; For the Chinese calendar the calculations for the new moon need to be more
 ;; accurate than those above, so we use more terms in the approximation.
 (defun lunar-new-moon-time (k)