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
48b29ac0
Commit
48b29ac0
authored
Jun 14, 1994
by
Edward M. Reingold
Browse files
(calendar-mode-map): Change moon menu bar to pop up a menu.
parent
d95f5c97
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
1 deletion
+6
-1
lisp/calendar/cal-menu.el
lisp/calendar/cal-menu.el
+6
-1
No files found.
lisp/calendar/cal-menu.el
View file @
48b29ac0
...
...
@@ -42,6 +42,12 @@
(
defvar
calendar-mouse-3-map
(
make-sparse-keymap
"Calendar"
))
(
define-key
calendar-mode-map
[down-mouse-3]
calendar-mouse-3-map
)
(
define-key
calendar-mode-map
[menu-bar
moon]
(
cons
"Moon"
(
make-sparse-keymap
"Moon"
)))
(
define-key
calendar-mode-map
[menu-bar
moon
moon]
'
(
"Lunar phases"
.
calendar-phases-of-moon
))
(
define-key
calendar-mode-map
[menu-bar
diary]
(
cons
"Diary"
(
make-sparse-keymap
"Diary"
)))
...
...
@@ -277,7 +283,6 @@ ERROR is t, otherwise just returns nil."
(
list
"Menu"
(
list
(
calendar-date-string
date
t
t
)
'
(
"Moon phase"
.
calendar-phases-of-moon
)
'
(
"Diary entries"
.
calendar-mouse-view-diary-entries
)
'
(
"Holidays"
.
calendar-mouse-holidays
)
'
(
"Mark date"
.
calendar-mouse-set-mark
)
...
...
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