# HG changeset patch # User Glenn Morris # Date 1214519382 0 # Node ID 775f65dc977632a0a26d8d1eb392486d66b8b79b # Parent f0549aa8923bd2e5731cd201961781bfe83d9a05 (solar-sunrises-buffer): New constant. (calendar-mode-map): Use cal-menu-sunmoon-menu. (calendar-buffer-list): Add solar-sunrises-buffer. diff -r f0549aa8923b -r 775f65dc9776 lisp/calendar/calendar.el --- 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))