diff options
| author | Glenn Morris | 2008-03-07 04:20:41 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-07 04:20:41 +0000 |
| commit | 100a41414a596397b98f4e03b6809a02c0bd17f9 (patch) | |
| tree | 16ec50e14edf7f40120156adbb37471ef668b2ad | |
| parent | 719b64c2d9cb294a8ff465cb5ba39d9b41f2e0b9 (diff) | |
| download | emacs-100a41414a596397b98f4e03b6809a02c0bd17f9.tar.gz emacs-100a41414a596397b98f4e03b6809a02c0bd17f9.zip | |
(org-agenda-sunrise-sunset): Require solar.
(calendar-longitude, calendar-latitude, calendar-location-name):
Declare for compiler.
| -rw-r--r-- | lisp/textmodes/org.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 912411453ed..71d8dee75f3 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el | |||
| @@ -22728,12 +22728,17 @@ the cursor position." | |||
| 22728 | (interactive) | 22728 | (interactive) |
| 22729 | (org-agenda-execute-calendar-command 'list-calendar-holidays)) | 22729 | (org-agenda-execute-calendar-command 'list-calendar-holidays)) |
| 22730 | 22730 | ||
| 22731 | (defvar calendar-longitude) | ||
| 22732 | (defvar calendar-latitude) | ||
| 22733 | (defvar calendar-location-name) | ||
| 22734 | |||
| 22731 | (defun org-agenda-sunrise-sunset (arg) | 22735 | (defun org-agenda-sunrise-sunset (arg) |
| 22732 | "Display sunrise and sunset for the cursor date. | 22736 | "Display sunrise and sunset for the cursor date. |
| 22733 | Latitude and longitude can be specified with the variables | 22737 | Latitude and longitude can be specified with the variables |
| 22734 | `calendar-latitude' and `calendar-longitude'. When called with prefix | 22738 | `calendar-latitude' and `calendar-longitude'. When called with prefix |
| 22735 | argument, latitude and longitude will be prompted for." | 22739 | argument, latitude and longitude will be prompted for." |
| 22736 | (interactive "P") | 22740 | (interactive "P") |
| 22741 | (require 'solar) | ||
| 22737 | (let ((calendar-longitude (if arg nil calendar-longitude)) | 22742 | (let ((calendar-longitude (if arg nil calendar-longitude)) |
| 22738 | (calendar-latitude (if arg nil calendar-latitude)) | 22743 | (calendar-latitude (if arg nil calendar-latitude)) |
| 22739 | (calendar-location-name | 22744 | (calendar-location-name |