mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(calendar-sunrise-sunset): Use new error arg to calendar-cursor-to-date.

Browse Source 
(sunrise-sunset): Allow it to be called without an argument (as advertized).
This commit is contained in:
Richard M. Stallman 1994-02-07 20:56:46 +00:00
parent d33b395845
commit 6a6e6405ef
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/calendar/solar.el
View File

@ -1,6 +1,6 @@
;;; solar.el --- calendar functions for solar events.
;; Copyright (C) 1992 Free Software Foundation, Inc.
;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Keywords: calendar
@ -400,6 +400,7 @@ latitude, time zone, and date.
This function is suitable for execution in a .emacs file."
(interactive "p")
(or arg (setq arg 1))
(if (and (< arg 16)
(not (and calendar-latitude calendar-longitude calendar-time-zone)))
(solar-setup))
@ -455,8 +456,7 @@ Accurate to +/- 2 minutes."
(interactive)
(if (not (and calendar-latitude calendar-longitude calendar-time-zone))
(solar-setup))
(let ((date (or (calendar-cursor-to-date)
(error "Cursor is not on a date!"))))
(let ((date (calendar-cursor-to-date t)))
(message "%s: %s"
(calendar-date-string date t t)
(solar-sunrise-sunset date))))