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 3d09a22..e1fa6c6 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 ab45690..230366d 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"))