From 5158face2e2830946ecb24badb27e764ee62906c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 4 Dec 2011 11:41:44 -0800 Subject: [PATCH] appt.el trivia. * lisp/calendar/appt.el (appt-add): Rewrite the interactive-spec to avoid overly zealous deletion of trailing whitespace. --- lisp/ChangeLog | 5 +++++ lisp/calendar/appt.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d09a225da0..e1fa6c6ec31 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-12-04 Glenn Morris + + * calendar/appt.el (appt-add): Rewrite the interactive-spec to avoid + overly zealous deletion of trailing whitespace. + 2011-12-04 Juanma Barranquero * 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 ab456904fd9..230366da2b0 100644 --- 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")) -- 2.39.2