changeset 96345:f0549aa8923b

(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. (cal-menu-goto-menu): Tweak menu name.
author Glenn Morris <rgm@gnu.org>
date Thu, 26 Jun 2008 22:29:15 +0000
parents 6c2ff33de03a
children 775f65dc9776
files lisp/calendar/cal-menu.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-menu.el	Thu Jun 26 22:28:24 2008 +0000
+++ b/lisp/calendar/cal-menu.el	Thu Jun 26 22:29:15 2008 +0000
@@ -32,11 +32,12 @@
 
 (require 'calendar)
 
-(defconst cal-menu-moon-menu
-  '("Moon"
+(defconst cal-menu-sunmoon-menu
+  '("Sun/Moon"
     ["Lunar Phases" calendar-phases-of-moon]
-    ["Sunrise/sunset for cursor date" calendar-sunrise-sunset])
-  "Key map for \"Moon\" menu in the calendar.")
+    ["Sunrise/sunset for cursor date" calendar-sunrise-sunset]
+    ["Sunrise/sunset for cursor month" calendar-sunrise-sunset-month])
+  "Key map for \"Sun/Moon\" menu in the calendar.")
 
 (defconst cal-menu-diary-menu
   '("Diary"
@@ -111,7 +112,7 @@
   "Key map for \"Holidays\" menu in the calendar.")
 
 (defconst cal-menu-goto-menu
-  '("Go To"
+  '("Goto"
     ["Today" calendar-goto-today]
     ["Beginning of Week" calendar-beginning-of-week]
     ["End of Week" calendar-end-of-week]
@@ -140,7 +141,7 @@
      ["Next Round" calendar-mayan-next-round-date]
      ["Previous Round" calendar-mayan-previous-round-date])
     ["French Date" calendar-french-goto-date])
-  "Key map for \"Go To\" menu in the calendar.")
+  "Key map for \"Goto\" menu in the calendar.")
 
 (defconst cal-menu-scroll-menu
   '("Scroll"
@@ -246,6 +247,7 @@
     ["Mark holidays" calendar-mark-holidays]
     ["Unmark" calendar-unmark]
     ["Lunar phases" calendar-phases-of-moon]
+    ["Sunrise times for month" calendar-sunrise-sunset-month]
     ["Show diary" diary-show-all-entries]
     ["Exit calendar" calendar-exit]))