diff options
| author | Glenn Morris | 2008-04-24 05:44:38 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-04-24 05:44:38 +0000 |
| commit | 378d60452f94957af4c0ceb5307584de3d5f5dc5 (patch) | |
| tree | f42bacc4ed8a7e1d3f7f9ebe1e3ec8908e758021 | |
| parent | b2cbe2af53ea342696f3dcdafd971b2d3c99b891 (diff) | |
| download | emacs-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.el | 6 |
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. |