Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d8899a74
Commit
d8899a74
authored
Sep 22, 2009
by
Glenn Morris
Browse files
(cal-menu-scroll-menu): Add a sub-section with commands that move
point (as opposed to scrolling).
parent
49b289c0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
1 deletion
+15
-1
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/calendar/cal-menu.el
lisp/calendar/cal-menu.el
+12
-1
No files found.
lisp/ChangeLog
View file @
d8899a74
2009-09-22 Glenn Morris <rgm@gnu.org>
* calendar/cal-menu.el (cal-menu-scroll-menu): Add a sub-section with
commands that move point (as opposed to scrolling).
* emulation/tpu-edt.el (tpu-copy-keyfile): Fix condition-case handler.
* emacs-lisp/elint.el (elint): New custom group.
...
...
lisp/calendar/cal-menu.el
View file @
d8899a74
...
...
@@ -145,12 +145,23 @@
(
defconst
cal-menu-scroll-menu
'
(
"Scroll"
[
"Scroll Commands"
nil
:help
"Commands that scroll the visible window"
]
[
"Forward 1 Month"
calendar-scroll-left]
[
"Forward 3 Months"
calendar-scroll-left-three-months]
[
"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"
(
calendar-scroll-right
12
)
:keys
"4 M-v"
]
)
[
"Backward 1 Year"
(
calendar-scroll-right
12
)
:keys
"4 M-v"
]
"--"
[
"Motion Commands"
nil
:help
"Commands that move point"
]
[
"Forward 1 Day"
calendar-forward-day]
[
"Forward 1 Week"
calendar-forward-week]
[
"Forward 1 Month"
calendar-forward-month]
[
"Forward 1 Year"
calendar-forward-year]
[
"Backward 1 Day"
calendar-backward-day]
[
"Backward 1 Week"
calendar-backward-week]
[
"Backward 1 Month"
calendar-backward-month]
[
"Backward 1 Year"
calendar-backward-year]
)
"Key map for \"Scroll\" menu in the calendar."
)
(
declare-function
x-popup-menu
"xmenu.c"
(
position
menu
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment