Commit 56e7830d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(calendar-cursor-holidays): Use new error arg

to calendar-cursor-to-date.
parent c33579cb
;;; holidays.el --- holiday functions for the calendar package ;;; 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> ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Keywords: holidays, calendar ;; Keywords: holidays, calendar
...@@ -102,8 +102,7 @@ The holidays are those in the list calendar-holidays." ...@@ -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." "Find holidays for the date specified by the cursor in the calendar window."
(interactive) (interactive)
(message "Checking holidays...") (message "Checking holidays...")
(let* ((date (or (calendar-cursor-to-date) (let* ((date (calendar-cursor-to-date t))
(error "Cursor is not on a date!")))
(date-string (calendar-date-string date)) (date-string (calendar-date-string date))
(holiday-list (check-calendar-holidays date)) (holiday-list (check-calendar-holidays date))
(holiday-string (mapconcat 'identity holiday-list "; ")) (holiday-string (mapconcat 'identity holiday-list "; "))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment