[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el

[Glenn Morris]

Index: emacs/lisp/calendar/diary-lib.el
diff -c emacs/lisp/calendar/diary-lib.el:1.89 
emacs/lisp/calendar/diary-lib.el:1.90
*** emacs/lisp/calendar/diary-lib.el:1.89       Tue Mar  1 10:23:58 2005
--- emacs/lisp/calendar/diary-lib.el    Wed Mar  9 00:29:14 2005
***************
*** 842,848 ****
  `mark-diary-entries-hook' are run."
    (interactive)
    ;; To remove any deleted diary entries.
!   (when mark-diary-entries-in-calendar
      (setq mark-diary-entries-in-calendar nil)
      (redraw-calendar))
    (let ((marking-diary-entries t)
--- 842,852 ----
  `mark-diary-entries-hook' are run."
    (interactive)
    ;; To remove any deleted diary entries.
!   (when (and mark-diary-entries-in-calendar
!              ;; Avoid redrawing when called recursively, eg through
!              ;; mark-diary-entries-hook for #include's, else only get
!              ;; the last set of diary marks.
!              (not marking-diary-entries))
      (setq mark-diary-entries-in-calendar nil)
      (redraw-calendar))
    (let ((marking-diary-entries t)