/[emacs]/emacs/lisp/calendar/solar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/solar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by eggert, Wed Mar 30 16:55:58 2005 UTC revision 1.52 by gm, Fri May 6 20:56:52 2005 UTC
# Line 4  Line 4 
4    
5  ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>  ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
6  ;;      Denis B. Roegel <Denis.Roegel@loria.fr>  ;;      Denis B. Roegel <Denis.Roegel@loria.fr>
7    ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk>
8  ;; Keywords: calendar  ;; Keywords: calendar
9  ;; Human-Keywords: sunrise, sunset, equinox, solstice, calendar, diary,  ;; Human-Keywords: sunrise, sunset, equinox, solstice, calendar, diary,
10  ;;      holidays  ;;      holidays
# Line 207  Needed for polar areas, in order to know Line 208  Needed for polar areas, in order to know
208    
209  (defun solar-setup ()  (defun solar-setup ()
210    "Prompt user for latitude, longitude, and time zone."    "Prompt user for latitude, longitude, and time zone."
211      (unless (or (and calendar-longitude calendar-latitude calendar-time-zone)
212                  (interactive-p))
213        ;; Defaults must be nil, else results could be subtlely wrong for
214        ;; user's real location.
215        (error "Calendar latitude, longitude and/or time-zone unset"))
216    (beep)    (beep)
217    (if (not calendar-longitude)    (if (not calendar-longitude)
218        (setq calendar-longitude        (setq calendar-longitude

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26