Mercurial > emacs
changeset 96346:775f65dc9776
(solar-sunrises-buffer): New constant.
(calendar-mode-map): Use cal-menu-sunmoon-menu.
(calendar-buffer-list): Add solar-sunrises-buffer.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 26 Jun 2008 22:29:42 +0000 |
| parents | f0549aa8923b |
| children | 69b4ce17b47a |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Thu Jun 26 22:29:15 2008 +0000 +++ b/lisp/calendar/calendar.el Thu Jun 26 22:29:42 2008 +0000 @@ -1018,6 +1018,9 @@ (defconst lunar-phases-buffer "*Phases of Moon*" "Name of the buffer used for the lunar phases.") +(defconst solar-sunrises-buffer "*Sunrise/Sunset Times" + "Name of buffer used for sunrise/sunset times.") + (defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" "Name of the buffer used by `list-yahrzeit-dates'.") @@ -1565,7 +1568,7 @@ (define-key map [menu-bar edit] 'undefined) (define-key map [menu-bar search] 'undefined) - (easy-menu-define nil map nil cal-menu-moon-menu) + (easy-menu-define nil map nil cal-menu-sunmoon-menu) (easy-menu-define nil map nil cal-menu-diary-menu) (easy-menu-define nil map nil cal-menu-holidays-menu) (easy-menu-define nil map nil cal-menu-goto-menu) @@ -1722,7 +1725,7 @@ "List of all calendar-related buffers (as buffers, not strings)." (let (buffs) (dolist (b (list calendar-hebrew-yahrzeit-buffer lunar-phases-buffer - holiday-buffer diary-fancy-buffer + holiday-buffer diary-fancy-buffer solar-sunrises-buffer (get-file-buffer diary-file) calendar-buffer calendar-other-calendars-buffer)) (and b (setq b (get-buffer b))