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
2ad9ebbd
Commit
2ad9ebbd
authored
Feb 19, 2004
by
Glenn Morris
Browse files
(calendar-goto-julian-date): Use assoc-string instead of
assoc-ignore-case.
parent
53d0b6a2
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lisp/calendar/cal-julian.el
lisp/calendar/cal-julian.el
+2
-2
No files found.
lisp/calendar/cal-julian.el
View file @
2ad9ebbd
...
...
@@ -115,12 +115,12 @@ Driven by the variable `calendar-date-display-form'."
today
))))))
(
month-array
calendar-month-name-array
)
(
completion-ignore-case
t
)
(
month
(
cdr
(
assoc-
ignore-case
(
month
(
cdr
(
assoc-
string
(
completing-read
"Julian calendar month name: "
(
mapcar
'list
(
append
month-array
nil
))
nil
t
)
(
calendar-make-alist
month-array
1
))))
(
calendar-make-alist
month-array
1
)
t
)))
(
last
(
if
(
and
(
zerop
(
%
year
4
))
(
=
month
2
))
29
...
...
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