Mercurial > emacs
changeset 5833:10ea561bcaa5
(calendar-print-french-date,diary-french-date):
Use new error arg to calendar-cursor-to-date.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Feb 1994 20:53:04 +0000 |
| parents | 238f508c5256 |
| children | 5391898ea85c |
| files | lisp/calendar/cal-french.el |
| diffstat | 1 files changed, 3 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-french.el Mon Feb 07 20:51:18 1994 +0000 +++ b/lisp/calendar/cal-french.el Mon Feb 07 20:53:04 1994 +0000 @@ -1,6 +1,6 @@ ;;; cal-french.el --- calendar functions for the French Revolutionary calendar. -;; Copyright (C) 1988, 1989, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1989, 1992, 1994 Free Software Foundation, Inc. ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> ;; Keywords: calendar @@ -151,9 +151,7 @@ (defun calendar-print-french-date () "Show the French Revolutionary calendar equivalent of the selected date." (interactive) - (let ((f (calendar-french-date-string - (or (calendar-cursor-to-date) - (error "Cursor is not on a date!"))))) + (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) (if (string-equal f "") (message "Date is pre-French Revolution") (message f)))) @@ -213,9 +211,7 @@ (defun diary-french-date () "French calendar equivalent of date diary entry." - (let ((f (calendar-french-date-string - (or (calendar-cursor-to-date) - (error "Cursor is not on a date!"))))) + (let ((f (calendar-french-date-string (calendar-cursor-to-date t)))) (if (string-equal f "") "Date is pre-French Revolution" f)))