diff options
author | Edward M. Reingold <[email protected]> | 1994-10-26 15:32:51 +0000 |
---|---|---|
committer | Edward M. Reingold <[email protected]> | 1994-10-26 15:32:51 +0000 |
commit | cc4879d2715d891ab0f703c83cd543bffaab534e (patch) | |
tree | c4ea9fb8d6667a33e5783a9df8928df46775fdb6 /lisp/calendar/lunar.el | |
parent | c99d4526f029c0c227487c09661d7f31159d8f57 (diff) |
Give lunar phases buffer a symbolic name; use new form of calendar-read-date.
Diffstat (limited to 'lisp/calendar/lunar.el')
-rw-r--r-- | lisp/calendar/lunar.el | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el index 99a5507f7b..715d5012ee 100644 --- a/lisp/calendar/lunar.el +++ b/lisp/calendar/lunar.el @@ -185,8 +185,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon, (let ((m1 displayed-month) (y1 displayed-year) (m2 displayed-month) - (y2 displayed-year) - (lunar-phases-buffer "*Phases of Moon*")) + (y2 displayed-year)) (increment-calendar-month m1 y1 -1) (increment-calendar-month m2 y2 1) (set-buffer (get-buffer-create lunar-phases-buffer)) @@ -225,25 +224,11 @@ This function is suitable for execution in a .emacs file." (interactive "P") (save-excursion (let* ((completion-ignore-case t) - (date (calendar-current-date)) - (displayed-month - (if arg - (cdr (assoc - (capitalize - (completing-read - "Month name: " - (mapcar 'list (append calendar-month-name-array nil)) - nil t)) - (calendar-make-alist calendar-month-name-array))) - (extract-calendar-month date))) - (displayed-year - (if arg - (calendar-read - "Year (>0): " - '(lambda (x) (> x 0)) - (int-to-string - (extract-calendar-year (calendar-current-date)))) - (extract-calendar-year date)))) + (date (if arg + (calendar-read-date t) + (calendar-current-date))) + (displayed-month (extract-calendar-month date)) + (displayed-year (extract-calendar-year date))) (calendar-phases-of-moon)))) (defun diary-phases-of-moon () |