From: Richard M. Stallman Date: Mon, 7 Feb 1994 20:49:35 +0000 (+0000) Subject: (calendar-cursor-holidays): Use new error arg X-Git-Tag: emacs-19.34~10020 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56e7830d68e9908a0155d74b0283c8ba61533af5;p=emacs.git (calendar-cursor-holidays): Use new error arg to calendar-cursor-to-date. --- 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 "; "))