diff options
| author | Glenn Morris | 2011-12-04 11:41:44 -0800 |
|---|---|---|
| committer | Glenn Morris | 2011-12-04 11:41:44 -0800 |
| commit | 5158face2e2830946ecb24badb27e764ee62906c (patch) | |
| tree | 53781452916b8dd4e6bb98b4668a8df8b3be1ebd | |
| parent | 55dc42fcf374b0168d3fda7edca0f24a7bfd4b7b (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-12-04 Juanma Barranquero <lekktu@gmail.com> | 6 | 2011-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. | |||
| 508 | Optional argument WARNTIME is an integer (or string) giving the number | 508 | Optional argument WARNTIME is an integer (or string) giving the number |
| 509 | of minutes before the appointment at which to start warning. | 509 | of minutes before the appointment at which to start warning. |
| 510 | The default is `appt-message-warning-time'." | 510 | The 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: | ||
| 514 | sMinutes before the appointment to start warning: ") | 512 | sMinutes 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")) |