Update maintainer.

(appt-buffer-name): Make it a constant.
(appt-add): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c2a30d3159d012a3907115d357c8ad401f670de..535c536b69eced0555f6a1f0d9d843eb46689c4a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2005-03-30  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
+       * calendar/cal-x.el (calendar-one-frame-setup)
+       (calendar-only-one-frame-setup, calendar-two-frame-setup): Use t
+       rather than 'symbol for set-window-dedicated-p.
+
        * calendar/appt.el (appt-buffer-name): Make it a constant.
        (appt-add): Doc fix.
 

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index e11129414d3662e2816519f44e484ef92423b892..8ace0be910ba2a55f725c6edd954acb098e65f0f 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -1,9 +1,9 @@
 ;;; appt.el --- appointment notification functions
 
-;; Copyright (C) 1989, 1990, 1994, 1998, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1990, 1994, 1998, 2004  Free Software Foundation, Inc.
 
 ;; Author: Neil Mager <neilm@juliet.ll.mit.edu>
-;; Maintainer: FSF
+;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk>
 ;; Keywords: calendar
 
 ;; This file is part of GNU Emacs.
@@ -181,7 +181,7 @@ Only relevant if reminders are being displayed in a window."
 
 ;;; Internal variables below this point.
 
-(defvar appt-buffer-name " *appt-buf*"
+(defconst appt-buffer-name " *appt-buf*"
   "Name of the appointments buffer.")
 
 (defvar appt-time-msg-list nil
@@ -486,9 +486,8 @@ Usually just deletes the appointment buffer."
 
 ;;;###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.
+  "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)