# HG changeset patch # User Richard M. Stallman # Date 760654175 0 # Node ID 7a4647230b224c95f6b8204ec3fe2c8d2301bcd3 # Parent 6bcdc3ad365d4bd890c38b5a06e52731f748161b (calendar-cursor-holidays): Use new error arg to calendar-cursor-to-date. diff -r 6bcdc3ad365d -r 7a4647230b22 lisp/calendar/holidays.el --- 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 ;; 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 "; "))