changeset 5834:5391898ea85c

(calendar-print-mayan-date): Use new error arg to calendar-cursor-to-date.
author Richard M. Stallman <rms@gnu.org>
date Mon, 07 Feb 1994 20:55:00 +0000
parents 10ea561bcaa5
children 1c685c3bd5a9
files lisp/calendar/cal-mayan.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-mayan.el	Mon Feb 07 20:53:04 1994 +0000
+++ b/lisp/calendar/cal-mayan.el	Mon Feb 07 20:55:00 1994 +0000
@@ -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 @@
   "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."