Mercurial > emacs
comparison lisp/calendar/appt.el @ 93948:a90650368da6
Require diary-lib rather than calendar.
(appt): Add :prefix.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 10 Apr 2008 03:43:52 +0000 |
parents | 54d9e787a82a |
children | e49abd957e81 |
comparison
equal
deleted
inserted
replaced
93947:6819f30b721b | 93948:a90650368da6 |
---|---|
73 ;; `appt-display-interval' minutes. | 73 ;; `appt-display-interval' minutes. |
74 ;; | 74 ;; |
75 | 75 |
76 ;;; Code: | 76 ;;; Code: |
77 | 77 |
78 ;; Make sure calendar is loaded when we compile this. | 78 (require 'diary-lib) |
79 (require 'calendar) | |
80 | 79 |
81 | 80 |
82 (defgroup appt nil | 81 (defgroup appt nil |
83 "Appointment notification." | 82 "Appointment notification." |
83 :prefix "appt-" | |
84 :group 'calendar) | 84 :group 'calendar) |
85 | 85 |
86 (defcustom appt-issue-message t | 86 (defcustom appt-issue-message t |
87 "Non-nil means check for appointments in the diary buffer. | 87 "Non-nil means check for appointments in the diary buffer. |
88 To be detected, the diary entry must have the format described in the | 88 To be detected, the diary entry must have the format described in the |
502 | 502 |
503 | 503 |
504 (defvar number) | 504 (defvar number) |
505 (defvar original-date) | 505 (defvar original-date) |
506 (defvar diary-entries-list) | 506 (defvar diary-entries-list) |
507 ;; Autoload for the old way of using this package. Can be removed sometime. | |
507 ;;;###autoload | 508 ;;;###autoload |
508 (defun appt-make-list () | 509 (defun appt-make-list () |
509 "Update the appointments list from today's diary buffer. | 510 "Update the appointments list from today's diary buffer. |
510 The time must be at the beginning of a line for it to be | 511 The time must be at the beginning of a line for it to be |
511 put in the appointments list (see examples in documentation of | 512 put in the appointments list (see examples in documentation of |