/[emacs]/emacs/lisp/calendar/diary-lib.el
ViewVC logotype

Diff of /emacs/lisp/calendar/diary-lib.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.85 by gm, Mon Dec 20 18:09:22 2004 UTC revision 1.86 by gm, Tue Dec 21 15:03:31 2004 UTC
# Line 841  Each entry in the diary file visible in Line 841  Each entry in the diary file visible in
841  After the entries are marked, the hooks `nongregorian-diary-marking-hook' and  After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
842  `mark-diary-entries-hook' are run."  `mark-diary-entries-hook' are run."
843    (interactive)    (interactive)
   (setq mark-diary-entries-in-calendar t)  
844    (let ((marking-diary-entries t)    (let ((marking-diary-entries t)
845          file-glob-attrs marks)          file-glob-attrs marks)
846      (save-excursion      (save-excursion
847        (set-buffer (find-file-noselect (diary-check-diary-file) t))        (set-buffer (find-file-noselect (diary-check-diary-file) t))
848          (setq mark-diary-entries-in-calendar t)
849        (message "Marking diary entries...")        (message "Marking diary entries...")
850        (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '())))        (setq file-glob-attrs (nth 1 (diary-pull-attrs nil '())))
851        (let ((d diary-date-forms)        (let ((d diary-date-forms)

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26