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
25ccbfee
Commit
25ccbfee
authored
Dec 23, 2006
by
Chong Yidong
Browse files
(calendar-mode-map): Switch < and >.
(calendar-mode-line-format): Use mouse-1 bindings, and tweak formatting.
parent
3ea94483
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
22 deletions
+20
-22
lisp/calendar/calendar.el
lisp/calendar/calendar.el
+20
-22
No files found.
lisp/calendar/calendar.el
View file @
25ccbfee
...
...
@@ -2199,12 +2199,12 @@ movement commands will not work correctly."
downcase-region
upcase-region
kill-region
copy-region-as-kill
capitalize-region
write-region
))
(
define-key
map
(
vector
'remap
c
)
'calendar-not-implemented
))
(
define-key
map
"
>
"
'scroll-calendar-right
)
(
define-key
map
"\C-x
>
"
'scroll-calendar-right
)
(
define-key
map
"
<
"
'scroll-calendar-right
)
(
define-key
map
"\C-x
<
"
'scroll-calendar-right
)
(
define-key
map
[prior]
'scroll-calendar-right-three-months
)
(
define-key
map
"\ev"
'scroll-calendar-right-three-months
)
(
define-key
map
"
<
"
'scroll-calendar-left
)
(
define-key
map
"\C-x
<
"
'scroll-calendar-left
)
(
define-key
map
"
>
"
'scroll-calendar-left
)
(
define-key
map
"\C-x
>
"
'scroll-calendar-left
)
(
define-key
map
[next]
'scroll-calendar-left-three-months
)
(
define-key
map
"\C-v"
'scroll-calendar-left-three-months
)
(
define-key
map
"\C-b"
'calendar-backward-day
)
...
...
@@ -2337,42 +2337,40 @@ movement commands will not work correctly."
(
defvar
calendar-mode-line-format
(
list
(
propertize
(
substitute-command-keys
"\\<calendar-mode-map>\\[scroll-calendar-left]"
)
'help-echo
"mouse-2: scroll left"
(
propertize
"<"
'help-echo
"mouse-1: previous month"
'mouse-face
'mode-line-highlight
'keymap
(
make-mode-line-mouse-map
'mouse-
2
'mouse-scroll-calendar-
lef
t
))
'keymap
(
make-mode-line-mouse-map
'mouse-
1
'mouse-scroll-calendar-
righ
t
))
"Calendar"
(
concat
(
propertize
(
substitute-command-keys
"\\<calendar-mode-map>\\[calendar-goto-info-node] info"
)
'help-echo
"mouse-
2
: read Info on Calendar"
'help-echo
"mouse-
1
: read Info on Calendar"
'mouse-face
'mode-line-highlight
'keymap
(
make-mode-line-mouse-map
'mouse-
2
'calendar-goto-info-node
))
"
/
"
'keymap
(
make-mode-line-mouse-map
'mouse-
1
'calendar-goto-info-node
))
"
/
"
(
propertize
(
substitute-command-keys
"\\<calendar-mode-map>\\[calendar-other-month] other"
)
'help-echo
"mouse-
2
: choose another month"
"
\\<calendar-mode-map>\\[calendar-other-month] other"
)
'help-echo
"mouse-
1
: choose another month"
'mouse-face
'mode-line-highlight
'keymap
(
make-mode-line-mouse-map
'mouse-
2
'mouse-calendar-other-month
))
"
/
"
'mouse-
1
'mouse-calendar-other-month
))
"
/
"
(
propertize
(
substitute-command-keys
"\\<calendar-mode-map>\\[calendar-goto-today] today"
)
'help-echo
"mouse-
2
: go to today's date"
'help-echo
"mouse-
1
: go to today's date"
'mouse-face
'mode-line-highlight
'keymap
(
make-mode-line-mouse-map
'mouse-
2
#'
calendar-goto-today
)))
'keymap
(
make-mode-line-mouse-map
'mouse-
1
#'
calendar-goto-today
)))
'
(
calendar-date-string
(
calendar-current-date
)
t
)
(
propertize
(
substitute-command-keys
"\\<calendar-mode-map>\\[scroll-calendar-right]"
)
'help-echo
"mouse-2: scroll right"
(
propertize
">"
'help-echo
"mouse-1: next month"
'mouse-face
'mode-line-highlight
'keymap
(
make-mode-line-mouse-map
'mouse-
2
'mouse-scroll-calendar-
righ
t
)))
'mouse-
1
'mouse-scroll-calendar-
lef
t
)))
"The mode line of the calendar buffer.
This must be a list of items that evaluate to strings--those strings are
...
...
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