Mercurial > emacs
changeset 92701:6a990f964e22
(date, entry, number): Move declarations to where they are needed.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Mon, 10 Mar 2008 02:49:37 +0000 |
parents | e31f46e15cac |
children | 61bc109c3133 |
files | lisp/calendar/cal-hebrew.el |
diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-hebrew.el Mon Mar 10 02:47:21 2008 +0000 +++ b/lisp/calendar/cal-hebrew.el Mon Mar 10 02:49:37 2008 +0000 @@ -37,11 +37,8 @@ ;;; Code: -(defvar date) (defvar displayed-month) (defvar displayed-year) -(defvar entry) -(defvar number) (defvar original-date) (require 'calendar) @@ -509,6 +506,8 @@ (declare-function add-to-diary-list "diary-lib" (date string specifier &optional marker globcolor literal)) +(defvar number) ; from diary-list-entries + (defun list-hebrew-diary-entries () "Add any Hebrew date entries from the diary file to `diary-entries-list'. Hebrew date diary entries must be prefaced by `hebrew-diary-entry-symbol' @@ -912,6 +911,8 @@ (display-buffer yahrzeit-buffer) (message "Computing Yahrzeits...done"))) +(defvar date) + (defun diary-hebrew-date () "Hebrew calendar equivalent of date diary entry." (format "Hebrew date (until sunset): %s" (calendar-hebrew-date-string date))) @@ -942,6 +943,8 @@ (format " and %d day%s" day (if (= day 1) "" "s")))))))))) +(defvar entry) + (defun diary-yahrzeit (death-month death-day death-year &optional mark) "Yahrzeit diary entry--entry applies if date is Yahrzeit or the day before. Parameters are DEATH-MONTH, DEATH-DAY, DEATH-YEAR; the diary entry is assumed