mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(calendar-lunar-phases): Rename from calendar-phases-of-moon. Keep

Browse source 
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.
This commit is contained in:
Glenn Morris 2008-06-27 00:33:29 +00:00
parent 43db14bbd8
commit 273fcc9bb0
1 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/calendar/lunar.el
View file

@ -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)