aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/midnight.el6
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