# HG changeset patch # User Sam Steingold # Date 1269361630 14400 # Node ID ad6fc78acf4341a7866d629c8f1e5ef993846698 # Parent 1039cde2a81ba3b9c4d77ae7a92017206aee06ee update author's email diff -r 1039cde2a81b -r ad6fc78acf43 lisp/midnight.el --- a/lisp/midnight.el Tue Mar 23 18:18:52 2010 +0200 +++ b/lisp/midnight.el Tue Mar 23 12:27:10 2010 -0400 @@ -3,8 +3,8 @@ ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. -;; Author: Sam Steingold -;; Maintainer: Sam Steingold +;; Author: Sam Steingold +;; Maintainer: Sam Steingold ;; Created: 1998-05-18 ;; Keywords: utilities @@ -205,7 +205,7 @@ (defun midnight-next () "Return the number of seconds till the next midnight." - (multiple-value-bind (sec min hrs) + (multiple-value-bind (sec min hrs) (values-list (decode-time)) (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec)))