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
07342a64
Commit
07342a64
authored
May 11, 1998
by
Edward M. Reingold
Browse files
Minor fix to earlier changes today.
parent
09cacf9c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
1 deletion
+12
-1
lisp/calendar/cal-menu.el
lisp/calendar/cal-menu.el
+12
-1
No files found.
lisp/calendar/cal-menu.el
View file @
07342a64
...
...
@@ -195,6 +195,10 @@
(
setq
l
(
cons
[
"Mark Holidays"
mark-calendar-holidays
t]
(
cons
[
"Unmark Calendar"
calendar-unmark
t]
l
)))
(
easy-menu-change
nil
"holidays"
(
nreverse
l
))
(
define-key
calendar-mode-map
[menu-bar
holidays
today]
`
(
,
(
format
"For Today (%s)"
(
calendar-date-string
(
calendar-current-date
)
t
t
))
.
cal-menu-today-holidays
))
(
let
((
title
(
let
((
m1
displayed-month
)
(
y1
displayed-year
)
...
...
@@ -212,7 +216,7 @@
y1
(
calendar-month-name
m2
3
)
y2
)))))
(
define-key
calendar-mode-map
[menu-bar
holidays
3-
day
]
(
define-key
calendar-mode-map
[menu-bar
holidays
3-
month
]
`
(
,
(
format
"For Current Window (%s)"
title
)
.
list-calendar-holidays
)))
(
let
((
date
(
calendar-cursor-to-date
)))
...
...
@@ -266,6 +270,13 @@ ERROR is t, otherwise just returns nil."
(
calendar-mouse-goto-date
(
calendar-event-to-date
))
(
calendar-sunrise-sunset
)))
(
defun
cal-menu-today-holidays
()
"Show holidays for today's date."
(
interactive
)
(
save-excursion
(
calendar-cursor-to-date
(
calendar-current-date
))
(
calendar-cursor-holidays
)))
(
defun
calendar-mouse-holidays
()
"Show holidays for mouse-selected date."
(
interactive
)
...
...
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