From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 7 Feb 1994 20:55:00 +0000 (+0000)
Subject: (calendar-print-mayan-date): Use new error arg to calendar-cursor-to-date.
X-Git-Tag: emacs-19.34~10017
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d33b3958453161f3d0586ad65a1d53873dfa9439;p=emacs.git

(calendar-print-mayan-date): Use new error arg to calendar-cursor-to-date.
---

diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el
index 25e3c7dc2cb..ab605f3ab4a 100644
--- a/lisp/calendar/cal-mayan.el
+++ b/lisp/calendar/cal-mayan.el
@@ -1,6 +1,6 @@
 ;;; cal-mayan.el --- calendar functions for the Mayan calendars.
 
-;; Copyright (C) 1992 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1993 Free Software Foundation, Inc.
 
 ;; Author: Stewart M. Clamen <clamen@cs.cmu.edu>
 ;;	Edward M. Reingold <reingold@cs.uiuc.edu>
@@ -345,9 +345,7 @@ Defaults to today's date if DATE is not given."
   "Show the Mayan long count, tzolkin, and haab equivalents of date."
   (interactive)
   (message "Mayan date: %s"
-           (calendar-mayan-date-string
-            (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!")))))
+           (calendar-mayan-date-string (calendar-cursor-to-date t))))
 
 (defun calendar-goto-mayan-long-count-date (date &optional noecho)
   "Move cursor to Mayan long count DATE.  Echo Mayan date unless NOECHO is t."