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
59d8fe2e
Commit
59d8fe2e
authored
May 06, 2005
by
Juanma Barranquero
Browse files
(mark-bahai-diary-entries): Replace `assoc-ignore-case' by `assoc-string'.
parent
af2c6038
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
7 deletions
+9
-7
lisp/calendar/cal-bahai.el
lisp/calendar/cal-bahai.el
+9
-7
No files found.
lisp/calendar/cal-bahai.el
View file @
59d8fe2e
...
...
@@ -375,19 +375,21 @@ nongregorian-diary-marking-hook."
(
string-to-int
y-str
)))))
(
if
dd-name
(
mark-calendar-days-named
(
cdr
(
assoc-ignore-case
(
substring
dd-name
0
3
)
(
calendar-make-alist
calendar-day-name-array
0
'
(
lambda
(
x
)
(
substring
x
0
3
))))))
(
cdr
(
assoc-string
(
substring
dd-name
0
3
)
(
calendar-make-alist
calendar-day-name-array
0
'
(
lambda
(
x
)
(
substring
x
0
3
)))
t
)))
(
if
mm-name
(
if
(
string-equal
mm-name
"*"
)
(
setq
mm
0
)
(
setq
mm
(
cdr
(
assoc-
ignore-case
(
cdr
(
assoc-
string
mm-name
(
calendar-make-alist
bahai-calendar-month-name-array
))))))
bahai-calendar-month-name-array
)
t
)))))
(
mark-bahai-calendar-date-pattern
mm
dd
yy
)))))
(
setq
d
(
cdr
d
)))))
...
...
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