Mercurial > emacs

comparison lisp/calendar/appt.el @ 61140:b9677b0e5e91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update maintainer. (appt-buffer-name): Make it a constant. (appt-add): Doc fix.
author Glenn Morris <rgm@gnu.org>
date Wed, 30 Mar 2005 15:15:37 +0000
parents c467ceeff8c7
children 6f7f5354c3ee 4da4a09e8b1b
comparison
equal deleted inserted replaced
61139:114d1be47bb4 61140:b9677b0e5e91
1 ;;; appt.el --- appointment notification functions 1 ;;; appt.el --- appointment notification functions
2 2
3 ;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Neil Mager <neilm@juliet.ll.mit.edu> 5 ;; Author: Neil Mager <neilm@juliet.ll.mit.edu>
6 ;; Maintainer: FSF 6 ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk>
7 ;; Keywords: calendar 7 ;; Keywords: calendar
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
179 :group 'appt) 179 :group 'appt)
180 180
181 181
182 ;;; Internal variables below this point. 182 ;;; Internal variables below this point.
183 183
184 (defvar appt-buffer-name " *appt-buf*" 184 (defconst appt-buffer-name " *appt-buf*"
185 "Name of the appointments buffer.") 185 "Name of the appointments buffer.")
186 186
187 (defvar appt-time-msg-list nil 187 (defvar appt-time-msg-list nil
188 "The list of appointments for today. 188 "The list of appointments for today.
189 Use `appt-add' and `appt-delete' to add and delete appointments. 189 Use `appt-add' and `appt-delete' to add and delete appointments.
484 lowest-window w))))) 484 lowest-window w)))))
485 (select-window lowest-window))) 485 (select-window lowest-window)))
486 486
487 ;;;###autoload 487 ;;;###autoload
488 (defun appt-add (new-appt-time new-appt-msg) 488 (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. 489 "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." 490 The time should be in either 24 hour format or am/pm format."
491
492 (interactive "sTime (hh:mm[am/pm]): \nsMessage: ") 491 (interactive "sTime (hh:mm[am/pm]): \nsMessage: ")
493 (unless (string-match "[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?" 492 (unless (string-match "[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?"
494 new-appt-time) 493 new-appt-time)
495 (error "Unacceptable time-string")) 494 (error "Unacceptable time-string"))
496 (let* ((appt-time-string (concat new-appt-time " " new-appt-msg)) 495 (let* ((appt-time-string (concat new-appt-time " " new-appt-msg))