Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6339134e
Commit
6339134e
authored
Jan 26, 1999
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(mark-diary-entries): Use assoc-ignore-case and do not capitalize when
matching month and day names.
parent
e21f4943
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
8 deletions
+8
-8
lisp/calendar/diary-lib.el
lisp/calendar/diary-lib.el
+8
-8
No files found.
lisp/calendar/diary-lib.el
View file @
6339134e
...
...
@@ -765,18 +765,18 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
(
string-to-int
y-str
)))))
(
if
dd-name
(
mark-calendar-days-named
(
cdr
(
assoc
(
capitalize
(
substring
dd-name
0
3
))
(
calendar-make-alist
calendar-day-name-array
0
'
(
lambda
(
x
)
(
substring
x
0
3
))))))
(
cdr
(
assoc-ignore-case
(
substring
dd-name
0
3
)
(
calendar-make-alist
calendar-day-name-array
0
'
(
lambda
(
x
)
(
substring
x
0
3
))))))
(
if
mm-name
(
if
(
string-equal
mm-name
"*"
)
(
setq
mm
0
)
(
setq
mm
(
cdr
(
assoc
(
capitalize
(
substring
mm-name
0
3
))
(
cdr
(
assoc-ignore-case
(
substring
mm-name
0
3
)
(
calendar-make-alist
calendar-month-name-array
1
...
...
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