/[emacs]/emacs/lisp/calendar/appt.el
ViewVC logotype

Diff of /emacs/lisp/calendar/appt.el

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

revision 1.56 by rms, Wed Feb 23 21:05:51 2005 UTC revision 1.57 by gm, Wed Mar 30 15:15:37 2005 UTC
# Line 1  Line 1 
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.
# Line 181  Only relevant if reminders are being dis Line 181  Only relevant if reminders are being dis
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
# Line 486  Usually just deletes the appointment buf Line 486  Usually just deletes the appointment buf
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)

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

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