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
e21f4943
Commit
e21f4943
authored
Jan 26, 1999
by
Richard M. Stallman
Browse files
(calendar-goto-french-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.
parent
50830fad
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
10 deletions
+6
-10
lisp/calendar/cal-french.el
lisp/calendar/cal-french.el
+6
-10
No files found.
lisp/calendar/cal-french.el
View file @
e21f4943
...
...
@@ -229,16 +229,12 @@ Echo French Revolutionary date unless NOECHO is t."
(
concat
"Jour "
x
))
special-days
))))))))
(
completion-ignore-case
t
)
(
month
(
cdr
(
assoc
(
capitalize
(
completing-read
"Mois ou Sansculottide: "
month-list
nil
t
))
(
calendar-make-alist
month-list
1
'
(
lambda
(
x
)
(
capitalize
(
car
x
)))))))
(
month
(
cdr
(
assoc-ignore-case
(
completing-read
"Mois ou Sansculottide: "
month-list
nil
t
)
(
calendar-make-alist
month-list
1
'car
))))
(
decade
(
if
(
>
month
12
)
1
(
calendar-read
...
...
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