diff options
| author | Richard M. Stallman | 1997-04-26 22:14:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-26 22:14:21 +0000 |
| commit | ed8fcefb1455cfa801164aee165e0e7dc1419ef0 (patch) | |
| tree | 34b0d500f3ec2046489b3fc46c073cdf5447fcef | |
| parent | 42f5d1b0010da0ba3b29ac48e6139d563d6301ec (diff) | |
| download | emacs-ed8fcefb1455cfa801164aee165e0e7dc1419ef0.tar.gz emacs-ed8fcefb1455cfa801164aee165e0e7dc1419ef0.zip | |
(calendar-print-coptic-date): Label Coptic/Ethiopic date in echo area.
| -rw-r--r-- | lisp/calendar/cal-coptic.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index 2bdf1295442..ad260067211 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el | |||
| @@ -126,7 +126,7 @@ Defaults to today's date if DATE is not given." | |||
| 126 | (let ((f (calendar-coptic-date-string (calendar-cursor-to-date t)))) | 126 | (let ((f (calendar-coptic-date-string (calendar-cursor-to-date t)))) |
| 127 | (if (string-equal f "") | 127 | (if (string-equal f "") |
| 128 | (message "Date is pre-%s calendar" coptic-name) | 128 | (message "Date is pre-%s calendar" coptic-name) |
| 129 | (message f)))) | 129 | (message "%s date: %s" coptic-name f)))) |
| 130 | 130 | ||
| 131 | (defun calendar-goto-coptic-date (date &optional noecho) | 131 | (defun calendar-goto-coptic-date (date &optional noecho) |
| 132 | "Move cursor to Coptic date DATE. | 132 | "Move cursor to Coptic date DATE. |