Mercurial > emacs
changeset 5831:7a4647230b22
(calendar-cursor-holidays): Use new error arg
to calendar-cursor-to-date.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Feb 1994 20:49:35 +0000 |
| parents | 6bcdc3ad365d |
| children | 238f508c5256 |
| files | lisp/calendar/holidays.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/holidays.el Mon Feb 07 20:47:23 1994 +0000 +++ b/lisp/calendar/holidays.el Mon Feb 07 20:49:35 1994 +0000 @@ -1,6 +1,6 @@ ;;; holidays.el --- holiday functions for the calendar package -;;; Copyright (C) 1989, 1990, 1992 Free Software Foundation, Inc. +;;; Copyright (C) 1989, 1990, 1992, 1993 Free Software Foundation, Inc. ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> ;; Keywords: holidays, calendar @@ -102,8 +102,7 @@ "Find holidays for the date specified by the cursor in the calendar window." (interactive) (message "Checking holidays...") - (let* ((date (or (calendar-cursor-to-date) - (error "Cursor is not on a date!"))) + (let* ((date (calendar-cursor-to-date t)) (date-string (calendar-date-string date)) (holiday-list (check-calendar-holidays date)) (holiday-string (mapconcat 'identity holiday-list "; "))