[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/appt.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/appt.el |
Date: |
Wed, 30 Mar 2005 10:15:37 -0500 |
Index: emacs/lisp/calendar/appt.el
diff -c emacs/lisp/calendar/appt.el:1.56 emacs/lisp/calendar/appt.el:1.57
*** emacs/lisp/calendar/appt.el:1.56 Wed Feb 23 21:05:51 2005
--- emacs/lisp/calendar/appt.el Wed Mar 30 15:15:37 2005
***************
*** 1,9 ****
;;; appt.el --- appointment notification functions
! ;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc.
;; Author: Neil Mager <address@hidden>
! ;; Maintainer: FSF
;; Keywords: calendar
;; This file is part of GNU Emacs.
--- 1,9 ----
;;; appt.el --- appointment notification functions
! ;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc.
;; Author: Neil Mager <address@hidden>
! ;; Maintainer: Glenn Morris <address@hidden>
;; Keywords: calendar
;; This file is part of GNU Emacs.
***************
*** 181,187 ****
;;; Internal variables below this point.
! (defvar appt-buffer-name " *appt-buf*"
"Name of the appointments buffer.")
(defvar appt-time-msg-list nil
--- 181,187 ----
;;; Internal variables below this point.
! (defconst appt-buffer-name " *appt-buf*"
"Name of the appointments buffer.")
(defvar appt-time-msg-list nil
***************
*** 486,494 ****
;;;###autoload
(defun appt-add (new-appt-time new-appt-msg)
! "Add an appointment for the day at NEW-APPT-TIME and issue message
NEW-APPT-MSG.
The time should be in either 24 hour format or am/pm format."
-
(interactive "sTime (hh:mm[am/pm]): \nsMessage: ")
(unless (string-match "[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?"
new-appt-time)
--- 486,493 ----
;;;###autoload
(defun appt-add (new-appt-time new-appt-msg)
! "Add an appointment for today at NEW-APPT-TIME with message NEW-APPT-MSG.
The time should be in either 24 hour format or am/pm format."
(interactive "sTime (hh:mm[am/pm]): \nsMessage: ")
(unless (string-match "[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?"
new-appt-time)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calendar/appt.el,
Glenn Morris <=