diff options
| -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 |