comparison lisp/calendar/appt.el @ 97717:8b10135f8d6c

Comments.
author Glenn Morris <rgm@gnu.org>
date Tue, 26 Aug 2008 03:03:21 +0000
parents f9c7bc38ee36
children 6638c3736a32
comparison
equal deleted inserted replaced
97716:e8b4c0217486 97717:8b10135f8d6c
42 ;; documentation of the function `appt-check' is required. 42 ;; documentation of the function `appt-check' is required.
43 ;; Relevant customizable variables are also listed in the 43 ;; Relevant customizable variables are also listed in the
44 ;; documentation of that function. 44 ;; documentation of that function.
45 ;; 45 ;;
46 ;; Today's appointment list is initialized from the diary when this 46 ;; Today's appointment list is initialized from the diary when this
47 ;; package is activated. Additionally, the appointments list is 47 ;; package is activated. Additionally, the appointments list is
48 ;; recreated automatically at 12:01am for those who do not logout 48 ;; recreated automatically at 12:01am for those who do not logout
49 ;; every day or are programming late. It is also updated when the 49 ;; every day or are programming late. It is also updated when the
50 ;; `diary-file' is saved. Calling `appt-check' with an argument forces 50 ;; `diary-file' is saved. Calling `appt-check' with an argument (or
51 ;; a re-initialization at any time. 51 ;; re-enabling the package) forces a re-initialization at any time.
52 ;; 52 ;;
53 ;; In order to add or delete items from today's list, without 53 ;; In order to add or delete items from today's list, without
54 ;; changing the diary file, use `appt-add' and `appt-delete'. 54 ;; changing the diary file, use `appt-add' and `appt-delete'.
55 ;; 55 ;;
56 56
536 (unless (nth 2 elt) 536 (unless (nth 2 elt)
537 (setq appt-time-msg-list 537 (setq appt-time-msg-list
538 (delq elt appt-time-msg-list)))) 538 (delq elt appt-time-msg-list))))
539 (if diary-entries-list 539 (if diary-entries-list
540 ;; Cycle through the entry-list (diary-entries-list) 540 ;; Cycle through the entry-list (diary-entries-list)
541 ;; looking for entries beginning with a time. If the 541 ;; looking for entries beginning with a time. If the
542 ;; entry begins with a time, add it to the 542 ;; entry begins with a time, add it to the
543 ;; appt-time-msg-list. Then sort the list. 543 ;; appt-time-msg-list. Then sort the list.
544 (let ((entry-list diary-entries-list) 544 (let ((entry-list diary-entries-list)
545 (new-time-string "") 545 (new-time-string "")
546 time-string) 546 time-string)
630 ;; (add-hook 'diary-hook 'appt-make-list) 630 ;; (add-hook 'diary-hook 'appt-make-list)
631 ;; (diary 0) 631 ;; (diary 0)
632 ;; The display-time call was not necessary, AFAICS. 632 ;; The display-time call was not necessary, AFAICS.
633 ;; What was really needed was to add the hook and load this file. 633 ;; What was really needed was to add the hook and load this file.
634 ;; Calling (diary 0) once the hook had been added was in some sense a 634 ;; Calling (diary 0) once the hook had been added was in some sense a
635 ;; roundabout way of loading this file. This file used to have code at 635 ;; roundabout way of loading this file. This file used to have code at
636 ;; the top-level that set up the appt-timer and global-mode-string. 636 ;; the top-level that set up the appt-timer and global-mode-string.
637 ;; One way to maintain backwards compatibility would be to call 637 ;; One way to maintain backwards compatibility would be to call
638 ;; (appt-activate 1) at top-level. However, this goes against the 638 ;; (appt-activate 1) at top-level. However, this goes against the
639 ;; convention that just loading an Emacs package should not activate 639 ;; convention that just loading an Emacs package should not activate
640 ;; it. Instead, we make appt-make-list activate the package (after a 640 ;; it. Instead, we make appt-make-list activate the package (after a
641 ;; suggestion from rms). This means that one has to call diary in 641 ;; suggestion from rms). This means that one has to call diary in
642 ;; order to get it to work, but that is in line with the old (weird, 642 ;; order to get it to work, but that is in line with the old (weird,
643 ;; IMO) documented behavior for activating the package. 643 ;; IMO) documented behavior for activating the package.
644 ;; Actually, since (diary 0) does not run diary-hook, I don't think 644 ;; Actually, since (diary 0) does not run diary-hook, I don't think
645 ;; the documented behavior in Emacs-21.3 would ever have worked. 645 ;; the documented behavior in Emacs-21.3 would ever have worked.
646 ;; Oh well, at least with the changes to appt-make-list it will now 646 ;; Oh well, at least with the changes to appt-make-list it will now