From c00f638dbb94cb24fb102d201793841e035eb7c2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Apr 1994 08:38:11 +0000 Subject: [PATCH] (calendar-starred-day): Var renamed from starred-day. --- lisp/calendar/calendar.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c2c02d91b95..0e6450b671a 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1986,7 +1986,7 @@ ERROR is t, otherwise just returns nil." (save-excursion (re-search-backward "[^*]") (looking-at ".\\*\\*"))) - (list month starred-day year) + (list month calendar-starred-day year) (if error (error "Cursor is not on a date!")))))) (defun calendar-cursor-to-nearest-date () @@ -2574,9 +2574,9 @@ MARK defaults to diary-entry-marker." This function can be used with the today-visible-calendar-hook run after the calendar window has been prepared." (let ((buffer-read-only nil)) - (make-variable-buffer-local 'starred-day) + (make-variable-buffer-local 'calendar-starred-day) (forward-char 1) - (setq starred-day + (setq calendar-starred-day (string-to-int (buffer-substring (point) (- (point) 2)))) (delete-char -2) -- 2.39.5