From f13bf28af87ca0367e159fc7e3a21f8afd432ba7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Feb 1994 20:51:18 +0000 Subject: (view-diary-entries,diary-islamic-date): Use new error arg to calendar-cursor-to-date. --- lisp/=diary-lib.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'lisp/=diary-lib.el') diff --git a/lisp/=diary-lib.el b/lisp/=diary-lib.el index 2ca7ed9cc26..9b9d2a935fc 100644 --- a/lisp/=diary-lib.el +++ b/lisp/=diary-lib.el @@ -1,6 +1,6 @@ ;;; diary.el --- diary functions. -;; Copyright (C) 1989, 1990, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1990, 1992, 1993 Free Software Foundation, Inc. ;; Author: Edward M. Reingold ;; Keywords: calendar @@ -67,9 +67,7 @@ in the displayed three-month calendar." (let ((d-file (substitute-in-file-name diary-file))) (if (and d-file (file-exists-p d-file)) (if (file-readable-p d-file) - (list-diary-entries (or (calendar-cursor-to-date) - (error "Cursor is not on a date!")) - arg) + (list-diary-entries (calendar-cursor-to-date t) arg) (error "Your diary file is not readable!")) (error "You don't have a diary file!")))) @@ -1339,9 +1337,7 @@ ending of that number (that is, `st', `nd', `rd' or `th', as appropriate." (defun diary-islamic-date () "Islamic calendar equivalent of date diary entry." - (let ((i (calendar-islamic-date-string - (or (calendar-cursor-to-date) - (error "Cursor is not on a date!"))))) + (let ((i (calendar-islamic-date-string (calendar-cursor-to-date t)))) (if (string-equal i "") "Date is pre-Islamic" (format "Islamic date (until sunset): %s" i)))) -- cgit v1.2.1