From 56e7830d68e9908a0155d74b0283c8ba61533af5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Feb 1994 20:49:35 +0000 Subject: [PATCH] (calendar-cursor-holidays): Use new error arg to calendar-cursor-to-date. --- lisp/calendar/holidays.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index addd8f80ac7..5f6be12695b 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el @@ -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 ;; Keywords: holidays, calendar @@ -102,8 +102,7 @@ The holidays are those in the list calendar-holidays." "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 "; ")) -- 2.39.5