1 |
;;; appt.el --- appointment notification functions |
;;; appt.el --- appointment notification functions |
2 |
|
|
3 |
;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Neil Mager <neilm@juliet.ll.mit.edu> |
;; Author: Neil Mager <neilm@juliet.ll.mit.edu> |
6 |
;; Maintainer: FSF |
;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> |
7 |
;; Keywords: calendar |
;; Keywords: calendar |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
181 |
|
|
182 |
;;; Internal variables below this point. |
;;; Internal variables below this point. |
183 |
|
|
184 |
(defvar appt-buffer-name " *appt-buf*" |
(defconst appt-buffer-name " *appt-buf*" |
185 |
"Name of the appointments buffer.") |
"Name of the appointments buffer.") |
186 |
|
|
187 |
(defvar appt-time-msg-list nil |
(defvar appt-time-msg-list nil |
486 |
|
|
487 |
;;;###autoload |
;;;###autoload |
488 |
(defun appt-add (new-appt-time new-appt-msg) |
(defun appt-add (new-appt-time new-appt-msg) |
489 |
"Add an appointment for the day at NEW-APPT-TIME and issue message NEW-APPT-MSG. |
"Add an appointment for today at NEW-APPT-TIME with message NEW-APPT-MSG. |
490 |
The time should be in either 24 hour format or am/pm format." |
The time should be in either 24 hour format or am/pm format." |
|
|
|
491 |
(interactive "sTime (hh:mm[am/pm]): \nsMessage: ") |
(interactive "sTime (hh:mm[am/pm]): \nsMessage: ") |
492 |
(unless (string-match "[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?" |
(unless (string-match "[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?" |
493 |
new-appt-time) |
new-appt-time) |