From: Glenn Morris <rgm@gnu.org>
Date: Thu, 24 Apr 2008 05:44:38 +0000 (+0000)
Subject: (cal-menu-diary-menu): Fix typo.
X-Git-Tag: emacs-pretest-23.0.90~6078
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=378d60452f94957af4c0ceb5307584de3d5f5dc5;p=emacs.git

(cal-menu-diary-menu): Fix typo.
(cal-menu-scroll-menu): Use commands rather than key macros, which don't
work with easymenu.  Add :keys where needed.
---

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index b1b680e59c2..ad11757a2b4 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -61,7 +61,7 @@
      ["Yearly" diary-islamic-insert-yearly-entry])
     ("Insert Hebrew"
      ["One time" diary-hebrew-insert-entry]
-     ["Monthly" diary-hebrew--insert-monthly-entry]
+     ["Monthly" diary-hebrew-insert-monthly-entry]
      ["Yearly" diary-hebrew-insert-yearly-entry])))
 
 (defun cal-menu-holiday-window-suffix ()
@@ -145,10 +145,10 @@
   '("Scroll"
     ["Forward 1 Month" calendar-scroll-left]
     ["Forward 3 Months" calendar-scroll-left-three-months]
-    ["Forward 1 Year" "4\C-v"]
+    ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"]
     ["Backward 1 Month" calendar-scroll-right]
     ["Backward 3 Months" calendar-scroll-right-three-months]
-    ["Backward 1 Year" "4\ev"]))
+    ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"]))
 
 (defun cal-menu-x-popup-menu (position menu)
   "Like `x-popup-menu', but print an error message if popups are unavailable.