procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(solar-sunrises-buffer): New constant.

Browse source 
(calendar-mode-map): Use cal-menu-sunmoon-menu.
(calendar-buffer-list): Add solar-sunrises-buffer.
This commit is contained in:
Glenn Morris 2008-06-26 22:30:01 +00:00
parent 70e420e303
commit 6e73a6a2c1
2 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ChangeLog
View file

@ -1,3 +1,17 @@
2008-06-26 Glenn Morris <rgm@gnu.org>
* calendar/solar.el (solar-sunrise-sunset-string): Add optional
argument `nolocation'.
(calendar-sunrise-sunset-month): New function.
* calendar/cal-menu.el (cal-menu-sunmoon-menu): Rename from
cal-menu-moon-menu. Add calendar-sunrise-sunset-month.
(cal-menu-global-mouse-menu): Add calendar-sunrise-sunset-month.
* calendar/calendar.el (solar-sunrises-buffer): New constant.
(calendar-mode-map): Use cal-menu-sunmoon-menu.
(calendar-buffer-list): Add solar-sunrises-buffer.
* calendar/cal-menu.el (cal-menu-goto-menu): Tweak menu name.
2008-06-26 Chong Yidong <cyd@stupidchicken.com>
* cus-start.el: Add customization types for word-wrap and

7
lisp/calendar/calendar.el
View file

@ -1018,6 +1018,9 @@ calendar."
(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 @@ line."
(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 @@ the STRINGS are just concatenated and the result truncated."
"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))