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
78627296
Commit
78627296
authored
Oct 24, 1995
by
Edward M. Reingold
Browse files
Fix menu for Chinese calendar.
parent
0c0efc3e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
6 deletions
+5
-6
lisp/calendar/cal-menu.el
lisp/calendar/cal-menu.el
+5
-6
No files found.
lisp/calendar/cal-menu.el
View file @
78627296
...
...
@@ -396,12 +396,11 @@ The output is in landscape format, one month to a page."
(
let
((
i
(
calendar-islamic-date-string
date
)))
(
if
(
not
(
string-equal
i
""
))
(
list
(
list
(
format
"Islamic date (before sunset): %s"
i
)))))
; too slow to leave this in all the time!
; (list
; (list (format "Chinese date: %s" (calendar-chinese-date-string date))))
; so instead,
(
list
'
(
"Chinese date (select to echo Chinese date)"
.
calendar-mouse-chinese-date
))
(
list
(
list
(
format
"Chinese date: %s"
(
calendar-chinese-date-string
date
))))
; (list '("Chinese date (select to echo Chinese date)"
; . calendar-mouse-chinese-date))
(
let
((
c
(
calendar-coptic-date-string
date
)))
(
if
(
not
(
string-equal
c
""
))
(
list
(
list
(
format
"Coptic date: %s"
c
)))))
...
...
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