From 273fcc9bb00e2b4541c2201dc955316938aa849e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 27 Jun 2008 00:33:29 +0000 Subject: [PATCH] (calendar-lunar-phases): Rename from calendar-phases-of-moon. Keep old name as alias, update callers. (lunar-phases): Rename from phases-of-moon. Keep old name as alias. (diary-lunar-phases): Rename from diary-phases-of-moon. Keep old name as alias. --- lisp/calendar/lunar.el | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el index f54a7a6ee72..8405432e26a 100644 --- a/lisp/calendar/lunar.el +++ b/lisp/calendar/lunar.el @@ -178,7 +178,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, (defvar displayed-year) ;;;###cal-autoload -(defun calendar-phases-of-moon () +(defun calendar-lunar-phases () "Create a buffer with the lunar phases for the current calendar window." (interactive) (message "Computing phases of the moon...") @@ -209,9 +209,12 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, (lunar-phase-list m1 y1) "\n"))) (message "Computing phases of the moon...done"))) -;; FIXME ? +;;;###cal-autoload +(define-obsolete-function-alias 'calendar-phases-of-moon + 'calendar-lunar-phases "23.1") + ;;;###autoload -(defun phases-of-moon (&optional arg) +(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." @@ -221,14 +224,17 @@ This function is suitable for execution in a .emacs file." (calendar-current-date))) (displayed-month (calendar-extract-month date)) (displayed-year (calendar-extract-year date))) - (calendar-phases-of-moon)))) + (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. ;;;###diary-autoload -(defun diary-phases-of-moon (&optional mark) +(defun diary-lunar-phases (&optional mark) "Moon phases diary entry. An optional parameter MARK specifies a face or single-character string to use when highlighting the day in the calendar." @@ -247,6 +253,10 @@ 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) -- 2.39.5