Mercurial > emacs
comparison lisp/calendar/cal-french.el @ 17570:daaffe2dece5
(calendar-print-french-date): Label French date in echo area.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Apr 1997 22:14:07 +0000 |
| parents | d1fc8a2d353f |
| children | 266e93ddaf0e |
comparison
equal
deleted
inserted
replaced
| 17569:834a1033dc76 | 17570:daaffe2dece5 |
|---|---|
| 171 "Show the French Revolutionary calendar equivalent of the selected date." | 171 "Show the French Revolutionary calendar equivalent of the selected date." |
| 172 (interactive) | 172 (interactive) |
| 173 (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) | 173 (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) |
| 174 (if (string-equal f "") | 174 (if (string-equal f "") |
| 175 (message "Date is pre-French Revolution") | 175 (message "Date is pre-French Revolution") |
| 176 (message f)))) | 176 (message "French Revolutionary date: %s" f)))) |
| 177 | 177 |
| 178 (defun calendar-goto-french-date (date &optional noecho) | 178 (defun calendar-goto-french-date (date &optional noecho) |
| 179 "Move cursor to French Revolutionary date DATE. | 179 "Move cursor to French Revolutionary date DATE. |
| 180 Echo French Revolutionary date unless NOECHO is t." | 180 Echo French Revolutionary date unless NOECHO is t." |
| 181 (interactive | 181 (interactive |