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
daedbbc2
Commit
daedbbc2
authored
Sep 22, 2009
by
Glenn Morris
Browse files
(calendar-mode-map): Make mouse-1 and 3 clicks on the scroll-bar
scroll the calendar window rather than the buffer.
parent
d8899a74
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
0 deletions
+11
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/calendar/calendar.el
lisp/calendar/calendar.el
+8
-0
No files found.
lisp/ChangeLog
View file @
daedbbc2
2009-09-22 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (calendar-mode-map): Make mouse-1 and 3 clicks on
the scroll-bar scroll the calendar window rather than the buffer.
* calendar/cal-menu.el (cal-menu-scroll-menu): Add a sub-section with
commands that move point (as opposed to scrolling).
...
...
lisp/calendar/calendar.el
View file @
daedbbc2
...
...
@@ -1594,6 +1594,14 @@ line."
(
define-key
map
[down-mouse-2]
(
easy-menu-binding
cal-menu-global-mouse-menu
))
;; Left-click moves us forward in time, right-click backwards.
;; cf scroll-bar.el.
(
define-key
map
[vertical-scroll-bar
mouse-1]
'calendar-scroll-left
)
(
define-key
map
[vertical-scroll-bar
drag-mouse-1]
'calendar-scroll-left
)
;; down-mouse-2 stays as scroll-bar-drag.
(
define-key
map
[vertical-scroll-bar
mouse-3]
'calendar-scroll-right
)
(
define-key
map
[vertical-scroll-bar
drag-mouse-3]
'calendar-scroll-right
)
map
)
"Keymap for `calendar-mode'."
)
...
...
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