mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-05 08:53:45 +00:00
Code Issues Releases Activity

(calendar-redrawing): New internal variable.

Browse Source 
(redraw-calendar): Remove bogus save-excursion from previous
change.  Bind calendar-redrawing to t for mark-diary-entries.
This commit is contained in:
Glenn Morris 2005-03-11 21:44:42 +00:00
parent 4b1523ac4a
commit 3ee0c967ef
1 changed files with 38 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/calendar/calendar.el
View File

@ -2150,15 +2150,18 @@ the inserted text. Value is always t."
(forward-line 1))))
t)
(defvar calendar-redrawing nil
"Internal calendar variable, non-nil if inside redraw-calendar.")
(defun redraw-calendar ()
"Redraw the calendar display, if `calendar-buffer' is live."
(interactive)
(if (get-buffer calendar-buffer)
(save-excursion
(with-current-buffer calendar-buffer
(let ((cursor-date (calendar-cursor-to-nearest-date)))
(let ((cursor-date (calendar-cursor-to-nearest-date))
(calendar-redrawing t))
(generate-calendar-window displayed-month displayed-year)
(calendar-cursor-to-visible-date cursor-date))))))
(calendar-cursor-to-visible-date cursor-date)))))
;;;###autoload
(defcustom calendar-week-start-day 0