(cal-menu-context-mouse-menu): Add some :keys.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df9749c1d9472c4ad55d508af18321459c53f371..194b58aa093c856d24a6ef616ad28fc7f16cec45 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -40,6 +40,7 @@
        * calendar/cal-menu.el (cal-menu-moon-menu, cal-menu-diary-menu)
        (cal-menu-holidays-menu, cal-menu-goto-menu, cal-menu-scroll-menu):
        Add doc strings.
+       (cal-menu-context-mouse-menu): Add some :keys.
 
 2008-06-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index b08f9f1f48859420eb5aaf9f07116679dfb56808..f3a69bd581fc1feff786ecd6cceddd5c82f0ed2b 100644 (file)
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -231,9 +231,10 @@ is non-nil."
     ("Write HTML calendar"
      ["For selected month" cal-html-cursor-month]
      ["For selected year" cal-html-cursor-year])
-    ["Diary entries" calendar-mouse-view-diary-entries]
+    ["Diary entries" calendar-mouse-view-diary-entries :keys "d"]
     ["Insert diary entry" diary-insert-entry]
-    ["Other diary file entries" calendar-mouse-view-other-diary-entries]))
+    ["Other diary file entries" calendar-mouse-view-other-diary-entries
+     :keys "D"]))
 
 (easy-menu-define cal-menu-global-mouse-menu nil
   "Menu bound to a mouse event, not specific to the mouse-click location."