Mercurial > emacs
changeset 5832:238f508c5256
(view-diary-entries,diary-islamic-date): Use new error arg
to calendar-cursor-to-date.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Feb 1994 20:51:18 +0000 |
| parents | 7a4647230b22 |
| children | 10ea561bcaa5 |
| files | lisp/=diary-lib.el |
| diffstat | 1 files changed, 3 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=diary-lib.el Mon Feb 07 20:49:35 1994 +0000 +++ b/lisp/=diary-lib.el Mon Feb 07 20:51:18 1994 +0000 @@ -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 <reingold@cs.uiuc.edu> ;; Keywords: calendar @@ -67,9 +67,7 @@ (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 @@ (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))))