1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

(calendar-print-coptic-date): Label Coptic/Ethiopic date in echo area.

This commit is contained in:
Richard M. Stallman 1997-04-26 22:14:21 +00:00
parent 42f5d1b001
commit ed8fcefb14

View File

@ -126,7 +126,7 @@ Defaults to today's date if DATE is not given."
(let ((f (calendar-coptic-date-string (calendar-cursor-to-date t))))
(if (string-equal f "")
(message "Date is pre-%s calendar" coptic-name)
(message f))))
(message "%s date: %s" coptic-name f))))
(defun calendar-goto-coptic-date (date &optional noecho)
"Move cursor to Coptic date DATE.