diff options
author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1994-05-10 21:57:35 +0000 |
---|---|---|
committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1994-05-10 21:57:35 +0000 |
commit | 0fe29c539c39790ae0221c138212f34e4592acce (patch) | |
tree | 88e5f013b50e1725478dfb7337f47bc5e293dae9 /lisp/calendar | |
parent | 04bfa9659974e292dd7ef941fdbcaac9ce1bca8c (diff) | |
download | emacs-0fe29c539c39790ae0221c138212f34e4592acce.tar.gz |
(calendar-cursor-to-date): Fix error return.
(calendar-iso-date-string): Repair punctuation.
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/calendar.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index a1661e106f4..37069fa0a00 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1983,12 +1983,13 @@ ERROR is t, otherwise just returns nil." (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 @@ Defaults to today's date if DATE is not given." (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)))) |