>>>>> Glenn Morris writes:
> > But some mechanism is still required to stop point being
> > clobbered in the diary-file buffer when saving, and
> > write-contents-functions contains diary-redraw-calendar.
[...]
> I have finally installed the patch you recommended all along, to
> solve the issue you were talking about.
Thanks, Glenn. Something is still needed to set the window point(s)
when not calling redraw-calendar from calendar-buffer? Something like
the attached, perhaps.
--- calendar.el 16 Mar 2005 13:46:14 +0000 1.165
+++ calendar.el 16 Mar 2005 14:21:08 +0000
@@ -2153,11 +2153,19 @@
(defun redraw-calendar ()
"Redraw the calendar display, if `calendar-buffer' is live."
(interactive)
- (if (get-buffer calendar-buffer)
- (with-current-buffer calendar-buffer
+ (let ((buffer (get-buffer calendar-buffer))
+ posn)
+ (when buffer
+ (with-current-buffer buffer
(let ((cursor-date (calendar-cursor-to-nearest-date)))
(generate-calendar-window displayed-month displayed-year)
- (calendar-cursor-to-visible-date cursor-date)))))
+ (calendar-cursor-to-visible-date cursor-date)
+ (setq posn (point))))
+ ;; Sync point in all calendar windows
+ (walk-windows (lambda (w)
+ (when (eq (window-buffer w) buffer)
+ (set-window-point w posn)))
+ nil t))))
;;;###autoload
(defcustom calendar-week-start-day 0
_______________________________________________
Emacs-pretest-bug mailing list
Emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
