Mercurial > emacs
changeset 7441:7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
(calendar-iso-date-string): Repair punctuation.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Tue, 10 May 1994 21:57:35 +0000 |
| parents | 1c0885a92832 |
| children | 27fdaecd7cb1 |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Tue May 10 21:00:32 1994 +0000 +++ b/lisp/calendar/calendar.el Tue May 10 21:57:35 1994 +0000 @@ -1983,12 +1983,13 @@ (list month (string-to-int (buffer-substring (1+ (point)) (+ 4 (point)))) year)) - (if (and (looking-at "\\*") - (save-excursion - (re-search-backward "[^*]") - (looking-at ".\\*\\*"))) - (list month calendar-starred-day year) - (if error (error "Cursor is not on a date!")))))) + (if (looking-at "\\*") + (save-excursion + (re-search-backward "[^*]") + (if (looking-at ".\\*\\*") + (list month starred-day year) + (if error (error "Not on a date!")))) + (if error (error "Not on a date!")))))) (defun calendar-cursor-to-nearest-date () "Move the cursor to the closest date. @@ -2721,7 +2722,7 @@ (or date (calendar-current-date)))) (day (% d 7)) (iso-date (calendar-iso-from-absolute d))) - (format "Day %s of week %d of %d." + (format "Day %s of week %d of %d" (if (zerop day) 7 day) (extract-calendar-month iso-date) (extract-calendar-year iso-date))))