diff options
| author | Roland McGrath | 1994-04-05 01:34:09 +0000 |
|---|---|---|
| committer | Roland McGrath | 1994-04-05 01:34:09 +0000 |
| commit | 1beddd9bb17be71824d52b6a6d4bf7cb045f456a (patch) | |
| tree | 31ba0ff08d554c11a60b2cc78800eedd02fdc0e2 | |
| parent | 100aa77cf60d39f40cbdffb3519ddd5b22ed1580 (diff) | |
| download | emacs-1beddd9bb17be71824d52b6a6d4bf7cb045f456a.tar.gz emacs-1beddd9bb17be71824d52b6a6d4bf7cb045f456a.zip | |
(calendar-cursor-to-date): Fix to signal error when appropriate.
| -rw-r--r-- | lisp/calendar/calendar.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index b1495c45633..124125f88df 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -1962,12 +1962,12 @@ ERROR is t, otherwise just returns nil." | |||
| 1962 | (list month | 1962 | (list month |
| 1963 | (string-to-int (buffer-substring (1+ (point)) (+ 4 (point)))) | 1963 | (string-to-int (buffer-substring (1+ (point)) (+ 4 (point)))) |
| 1964 | year)) | 1964 | year)) |
| 1965 | (if (looking-at "\\*") | 1965 | (if (and (looking-at "\\*") |
| 1966 | (save-excursion | 1966 | (save-excursion |
| 1967 | (re-search-backward "[^*]") | 1967 | (re-search-backward "[^*]") |
| 1968 | (if (looking-at ".\\*\\*") | 1968 | (looking-at ".\\*\\*"))) |
| 1969 | (list month starred-day year) | 1969 | (list month starred-day year) |
| 1970 | (if error (error "Cursor is not on a date!")))))))) | 1970 | (if error (error "Cursor is not on a date!")))))) |
| 1971 | 1971 | ||
| 1972 | (defun calendar-cursor-to-nearest-date () | 1972 | (defun calendar-cursor-to-nearest-date () |
| 1973 | "Move the cursor to the closest date. | 1973 | "Move the cursor to the closest date. |