aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2011-12-04 11:41:44 -0800
committerGlenn Morris2011-12-04 11:41:44 -0800
commit5158face2e2830946ecb24badb27e764ee62906c (patch)
tree53781452916b8dd4e6bb98b4668a8df8b3be1ebd
parent55dc42fcf374b0168d3fda7edca0f24a7bfd4b7b (diff)
downloademacs-5158face2e2830946ecb24badb27e764ee62906c.tar.gz
emacs-5158face2e2830946ecb24badb27e764ee62906c.zip
appt.el trivia.
* lisp/calendar/appt.el (appt-add): Rewrite the interactive-spec to avoid overly zealous deletion of trailing whitespace.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/calendar/appt.el4
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 @@
12011-12-04 Glenn Morris <rgm@gnu.org>
2
3 * calendar/appt.el (appt-add): Rewrite the interactive-spec to avoid
4 overly zealous deletion of trailing whitespace.
5
12011-12-04 Juanma Barranquero <lekktu@gmail.com> 62011-12-04 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * server.el (server-delete-client): On Windows, do not try to delete 8 * 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.
508Optional argument WARNTIME is an integer (or string) giving the number 508Optional argument WARNTIME is an integer (or string) giving the number
509of minutes before the appointment at which to start warning. 509of minutes before the appointment at which to start warning.
510The default is `appt-message-warning-time'." 510The default is `appt-message-warning-time'."
511 ;; People who like to delete trailing whitespace: READ THIS. 511 (interactive "sTime (hh:mm[am/pm]): \nsMessage: \n\
512 ;; This whitespace is supposed to be here.
513 (interactive "sTime (hh:mm[am/pm]): \nsMessage:
514sMinutes before the appointment to start warning: ") 512sMinutes before the appointment to start warning: ")
515 (unless (string-match appt-time-regexp time) 513 (unless (string-match appt-time-regexp time)
516 (error "Unacceptable time-string")) 514 (error "Unacceptable time-string"))