From: Glenn Morris Date: Fri, 14 Sep 2007 04:31:22 +0000 (+0000) Subject: Rename all check-calendar-holidays callers to calendar-check-holidays. X-Git-Tag: emacs-pretest-23.0.90~10906 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d7f185bf650e4e1be637468bb2f47591ddf9550;p=emacs.git Rename all check-calendar-holidays callers to calendar-check-holidays. --- diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 09034ab3a8d..55cd8bc0a0a 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -75,7 +75,7 @@ D-FILE specifies the file to use as the diary file." (let ((diary-file d-file)) (diary-view-entries arg))) -(autoload 'check-calendar-holidays "holidays" +(autoload 'calendar-check-holidays "holidays" "Check the list of holidays for any that occur on DATE. The value returned is a list of strings of relevant holiday descriptions. The holidays are those in the list `calendar-holidays'.") @@ -598,7 +598,7 @@ changing the variable `diary-include-string'." (defun simple-diary-display () "Display the diary buffer if there are any relevant entries or holidays." (let* ((holiday-list (if holidays-in-diary-buffer - (check-calendar-holidays original-date))) + (calendar-check-holidays original-date))) (hol-string (format "%s%s%s" date-string (if holiday-list ": " "") @@ -676,7 +676,7 @@ This function is provided for optional use as the `diary-display-hook'." (and (not (cdr diary-entries-list)) (string-equal (car (cdr (car diary-entries-list))) ""))) (let* ((holiday-list (if holidays-in-diary-buffer - (check-calendar-holidays original-date))) + (calendar-check-holidays original-date))) (msg (format "No diary entries for %s %s" (concat date-string (if holiday-list ":" "")) (mapconcat 'identity holiday-list "; "))))