- (message "Date is pre-%s calendar" coptic-name)
- (message "%s date: %s" coptic-name f))))
-
-(defun calendar-goto-coptic-date (date &optional noecho)
- "Move cursor to Coptic date DATE.
-Echo Coptic date unless NOECHO is t."
- (interactive (coptic-prompt-for-date))
- (calendar-goto-date (calendar-gregorian-from-absolute
- (calendar-absolute-from-coptic date)))
- (or noecho (calendar-print-coptic-date)))
+ (message "Date is pre-%s calendar" calendar-coptic-name)
+ (message "%s date: %s" calendar-coptic-name f))))