diff options
| -rw-r--r-- | lisp/midnight.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/midnight.el b/lisp/midnight.el index 5887a3445bc..5ff1ecc9b07 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el | |||
| @@ -3,8 +3,8 @@ | |||
| 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Sam Steingold <sds@usa.net> | 6 | ;; Author: Sam Steingold <sds@gnu.org> |
| 7 | ;; Maintainer: Sam Steingold <sds@usa.net> | 7 | ;; Maintainer: Sam Steingold <sds@gnu.org> |
| 8 | ;; Created: 1998-05-18 | 8 | ;; Created: 1998-05-18 |
| 9 | ;; Keywords: utilities | 9 | ;; Keywords: utilities |
| 10 | 10 | ||
| @@ -205,7 +205,7 @@ The default value is `clean-buffer-list'." | |||
| 205 | 205 | ||
| 206 | (defun midnight-next () | 206 | (defun midnight-next () |
| 207 | "Return the number of seconds till the next midnight." | 207 | "Return the number of seconds till the next midnight." |
| 208 | (multiple-value-bind (sec min hrs) | 208 | (multiple-value-bind (sec min hrs) |
| 209 | (values-list (decode-time)) | 209 | (values-list (decode-time)) |
| 210 | (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec))) | 210 | (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec))) |
| 211 | 211 | ||