diff options
| author | Richard M. Stallman | 1997-04-11 02:35:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-11 02:35:08 +0000 |
| commit | 7801463cd5daf12a04e7b480b65b61db7c5a6386 (patch) | |
| tree | 4e6d898fc26f78482941a3f70d8226222d8b4717 | |
| parent | edbf26946d4c9db29264ad4f78291b324f0e833d (diff) | |
| download | emacs-7801463cd5daf12a04e7b480b65b61db7c5a6386.tar.gz emacs-7801463cd5daf12a04e7b480b65b61db7c5a6386.zip | |
(diary-coptic-date): Use `date'.
If calendar-coptic-date-string gives nonempty string,
add additional text to it.
| -rw-r--r-- | lisp/calendar/cal-coptic.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index 6fce26c5013..2bdf1295442 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el | |||
| @@ -164,10 +164,10 @@ Echo Coptic date unless NOECHO is t." | |||
| 164 | 164 | ||
| 165 | (defun diary-coptic-date () | 165 | (defun diary-coptic-date () |
| 166 | "Coptic calendar equivalent of date diary entry." | 166 | "Coptic calendar equivalent of date diary entry." |
| 167 | (let ((f (calendar-coptic-date-string (calendar-cursor-to-date t)))) | 167 | (let ((f (calendar-coptic-date-string date))) |
| 168 | (if (string-equal f "") | 168 | (if (string-equal f "") |
| 169 | (format "Date is pre-%s calendar" coptic-name) | 169 | (format "Date is pre-%s calendar" coptic-name) |
| 170 | f))) | 170 | (format "%s date: %s" coptic-name f)))) |
| 171 | 171 | ||
| 172 | (defconst ethiopic-calendar-month-name-array | 172 | (defconst ethiopic-calendar-month-name-array |
| 173 | ["Maskaram" "Teqemt" "Khedar" "Takhsas" "Ter" "Yakatit" "Magabit" "Miyazya" | 173 | ["Maskaram" "Teqemt" "Khedar" "Takhsas" "Ter" "Yakatit" "Magabit" "Miyazya" |