Mercurial > emacs

changeset 7132:1842a026e270

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-starred-day): Var renamed from starred-day.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Apr 1994 08:38:11 +0000
parents 32678633292e
children 9367067ee736
files lisp/calendar/calendar.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Wed Apr 27 08:37:12 1994 +0000
+++ b/lisp/calendar/calendar.el	Wed Apr 27 08:38:11 1994 +0000
@@ -1986,7 +1986,7 @@
 	       (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 @@
 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)