Commit f6ca63d7 authored by Glenn Morris's avatar Glenn Morris

Whitespace only.

parent c62a71df
......@@ -1238,11 +1238,15 @@ is marked. See the documentation for the function `list-sexp-diary-entries'."
(if (bolp) (backward-char 1))
(setq entry (buffer-substring-no-properties entry-start (point))))
(calendar-for-loop date from first-date to last-date do
(if (setq mark (diary-sexp-entry sexp entry
(if (setq mark
(diary-sexp-entry sexp entry
(calendar-gregorian-from-absolute date)))
(progn
(setq marks (diary-pull-attrs entry file-glob-attrs)
marks (nth 1 (diary-pull-attrs entry file-glob-attrs)))
;; FIXME what?
(setq marks (diary-pull-attrs
entry file-glob-attrs)
marks (nth 1 (diary-pull-attrs
entry file-glob-attrs)))
(mark-visible-calendar-date
(calendar-gregorian-from-absolute date)
(if (< 0 (length marks))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment