comparison lisp/calendar/calendar.el @ 7132:1842a026e270

(calendar-starred-day): Var renamed from starred-day.

7131:32678633292e

                year))
      (if (and (looking-at "\\*")
	       (save-excursion
		 (re-search-backward "[^*]")
		 (looking-at ".\\*\\*")))
	  (list month starred-day year)
	(if error (error "Cursor is not on a date!"))))))

(defun calendar-cursor-to-nearest-date ()
  "Move the cursor to the closest date.
The position of the cursor is unchanged if it is already on a date.

(defun calendar-star-date ()
  "Replace the date under the cursor in the calendar window with asterisks.
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)
    (forward-char 1)
    (setq starred-day
          (string-to-int
           (buffer-substring (point) (- (point) 2))))
    (delete-char -2)
    (insert "**")
    (backward-char 1)

7132:1842a026e270

                year))
      (if (and (looking-at "\\*")
	       (save-excursion
		 (re-search-backward "[^*]")
		 (looking-at ".\\*\\*")))
	  (list month calendar-starred-day year)
	(if error (error "Cursor is not on a date!"))))))

(defun calendar-cursor-to-nearest-date ()
  "Move the cursor to the closest date.
The position of the cursor is unchanged if it is already on a date.

(defun calendar-star-date ()
  "Replace the date under the cursor in the calendar window with asterisks.
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 'calendar-starred-day)
    (forward-char 1)
    (setq calendar-starred-day
          (string-to-int
           (buffer-substring (point) (- (point) 2))))
    (delete-char -2)
    (insert "**")
    (backward-char 1)