Mercurial > emacs

changeset 84555:dea87a7b2dce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename all check-calendar-holidays callers to calendar-check-holidays.
author Glenn Morris <rgm@gnu.org>
date Fri, 14 Sep 2007 04:31:22 +0000
parents 5bd5d06e4cf2
children b6e0c57bb8f8
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el	Fri Sep 14 04:30:30 2007 +0000
+++ b/lisp/calendar/diary-lib.el	Fri Sep 14 04:31:22 2007 +0000
@@ -75,7 +75,7 @@
   (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 @@
 (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 @@
           (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 "; "))))