Mercurial > emacs
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 |