aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-04-24 05:44:38 +0000
committerGlenn Morris2008-04-24 05:44:38 +0000
commit378d60452f94957af4c0ceb5307584de3d5f5dc5 (patch)
treef42bacc4ed8a7e1d3f7f9ebe1e3ec8908e758021
parentb2cbe2af53ea342696f3dcdafd971b2d3c99b891 (diff)
downloademacs-378d60452f94957af4c0ceb5307584de3d5f5dc5.tar.gz
emacs-378d60452f94957af4c0ceb5307584de3d5f5dc5.zip
(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.
-rw-r--r--lisp/calendar/cal-menu.el6
1 files changed, 3 insertions, 3 deletions
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 @@
61 ["Yearly" diary-islamic-insert-yearly-entry]) 61 ["Yearly" diary-islamic-insert-yearly-entry])
62 ("Insert Hebrew" 62 ("Insert Hebrew"
63 ["One time" diary-hebrew-insert-entry] 63 ["One time" diary-hebrew-insert-entry]
64 ["Monthly" diary-hebrew--insert-monthly-entry] 64 ["Monthly" diary-hebrew-insert-monthly-entry]
65 ["Yearly" diary-hebrew-insert-yearly-entry]))) 65 ["Yearly" diary-hebrew-insert-yearly-entry])))
66 66
67(defun cal-menu-holiday-window-suffix () 67(defun cal-menu-holiday-window-suffix ()
@@ -145,10 +145,10 @@
145 '("Scroll" 145 '("Scroll"
146 ["Forward 1 Month" calendar-scroll-left] 146 ["Forward 1 Month" calendar-scroll-left]
147 ["Forward 3 Months" calendar-scroll-left-three-months] 147 ["Forward 3 Months" calendar-scroll-left-three-months]
148 ["Forward 1 Year" "4\C-v"] 148 ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"]
149 ["Backward 1 Month" calendar-scroll-right] 149 ["Backward 1 Month" calendar-scroll-right]
150 ["Backward 3 Months" calendar-scroll-right-three-months] 150 ["Backward 3 Months" calendar-scroll-right-three-months]
151 ["Backward 1 Year" "4\ev"])) 151 ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"]))
152 152
153(defun cal-menu-x-popup-menu (position menu) 153(defun cal-menu-x-popup-menu (position menu)
154 "Like `x-popup-menu', but print an error message if popups are unavailable. 154 "Like `x-popup-menu', but print an error message if popups are unavailable.