appt.el trivia.

* lisp/calendar/appt.el (appt-add): Rewrite the interactive-spec to avoid
overly zealous deletion of trailing whitespace.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d09a225da04e92454999bd4f5e41c43f4e0bbbd..e1fa6c6ec31335727e0c0137a2cca23aa81508ac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-04  Glenn Morris  <rgm@gnu.org>
+
+       * calendar/appt.el (appt-add): Rewrite the interactive-spec to avoid
+       overly zealous deletion of trailing whitespace.
+
 2011-12-04  Juanma Barranquero  <lekktu@gmail.com>
 
        * server.el (server-delete-client): On Windows, do not try to delete

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index ab456904fd9f3446c7c2b3aac4e8d46c5c3b04d6..230366da2b01087d2d335081736d352eecba0e07 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -508,9 +508,7 @@ The time should be in either 24 hour format or am/pm format.
 Optional argument WARNTIME is an integer (or string) giving the number
 of minutes before the appointment at which to start warning.
 The default is `appt-message-warning-time'."
-  ;; People who like to delete trailing whitespace: READ THIS.
-  ;; This whitespace is supposed to be here.
-  (interactive "sTime (hh:mm[am/pm]): \nsMessage: 
+  (interactive "sTime (hh:mm[am/pm]): \nsMessage: \n\
 sMinutes before the appointment to start warning: ")
   (unless (string-match appt-time-regexp time)
     (error "Unacceptable time-string"))