From: Glenn Morris Date: Sun, 4 Dec 2011 19:41:44 +0000 (-0800) Subject: appt.el trivia. X-Git-Tag: emacs-pretest-24.0.93~232^2~2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5158face2e2830946ecb24badb27e764ee62906c;p=emacs.git 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 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"))