Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
abc178a0
Commit
abc178a0
authored
Feb 19, 2004
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(mark-diary-entries): Use assoc-string instead of assoc-ignore-case.
parent
22ebf393
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/calendar/diary-lib.el
lisp/calendar/diary-lib.el
+4
-4
No files found.
lisp/calendar/diary-lib.el
View file @
abc178a0
...
...
@@ -906,19 +906,19 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
marks (nth 1 temp))))
(if dd-name
(mark-calendar-days-named
(cdr (assoc-
ignore-case
(cdr (assoc-
string
dd-name
(calendar-make-alist
calendar-day-name-array
0 nil calendar-day-abbrev-array))) marks)
0 nil calendar-day-abbrev-array)
t
)) marks)
(if mm-name
(setq mm
(if (string-equal mm-name "*") 0
(cdr (assoc-
ignore-case
(cdr (assoc-
string
mm-name
(calendar-make-alist
calendar-month-name-array
1 nil calendar-month-abbrev-array))))))
1 nil calendar-month-abbrev-array)
t
)))))
(mark-calendar-date-pattern mm dd yy marks))))
(setq d (cdr d))))
(mark-sexp-diary-entries)
...
...
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