(list month
(string-to-int (buffer-substring (1+ (point)) (+ 4 (point))))
year))
- (if (and (looking-at "\\*")
- (save-excursion
- (re-search-backward "[^*]")
- (looking-at ".\\*\\*")))
- (list month calendar-starred-day year)
- (if error (error "Cursor is not on a date!"))))))
+ (if (looking-at "\\*")
+ (save-excursion
+ (re-search-backward "[^*]")
+ (if (looking-at ".\\*\\*")
+ (list month starred-day year)
+ (if error (error "Not on a date!"))))
+ (if error (error "Not on a date!"))))))
(defun calendar-cursor-to-nearest-date ()
"Move the cursor to the closest date.
(or date (calendar-current-date))))
(day (% d 7))
(iso-date (calendar-iso-from-absolute d)))
- (format "Day %s of week %d of %d."
+ (format "Day %s of week %d of %d"
(if (zerop day) 7 day)
(extract-calendar-month iso-date)
(extract-calendar-year iso-date))))