# HG changeset patch
# User Deepak Goel <deego@gnufans.org>
# Date 1236973418 0
# Node ID 26dfa5308c2643e0c56897bc58a0550487c591f0
# Parent  7c75a2c271c1dd427929d82ac1e1d907aec24f9b
M-v correctness.

diff -r 7c75a2c271c1 -r 26dfa5308c26 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 13 17:53:09 2009 +0000
+++ b/lisp/ChangeLog	Fri Mar 13 19:43:38 2009 +0000
@@ -1,3 +1,11 @@
+2009-03-13  D. Goel  <deego3@gmail.com>
+
+	* midnight.el (midnight-next): Ditto.
+
+	* ibuf-ext.el (ibuffer-generate-filter-groups): 
+	(multiple-value-bind .. ls) -> (multiple-value-bind
+	.. (values-list ls))
+
 2009-03-13  Agustín Martín  <agustin.martin@hispalinux.es>
 
 	* textmodes/ispell.el (ispell-get-word): Initialize spellchecker
diff -r 7c75a2c271c1 -r 26dfa5308c26 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Fri Mar 13 17:53:09 2009 +0000
+++ b/lisp/ibuf-ext.el	Fri Mar 13 19:43:38 2009 +0000
@@ -544,10 +544,11 @@
       (dolist (filtergroup filter-group-alist)
 	(let ((filterset (cdr filtergroup)))
 	  (multiple-value-bind (hip-crowd lamers)
-	      (ibuffer-split-list (lambda (bufmark)
-				    (ibuffer-included-in-filters-p (car bufmark)
-								   filterset))
-				  bmarklist)
+	      (values-list 
+	       (ibuffer-split-list (lambda (bufmark)
+				     (ibuffer-included-in-filters-p (car bufmark)
+								    filterset))
+				   bmarklist))
 	    (aset vec i hip-crowd)
 	    (incf i)
 	    (setq bmarklist lamers))))
diff -r 7c75a2c271c1 -r 26dfa5308c26 lisp/midnight.el
--- a/lisp/midnight.el	Fri Mar 13 17:53:09 2009 +0000
+++ b/lisp/midnight.el	Fri Mar 13 19:43:38 2009 +0000
@@ -205,7 +205,8 @@
 
 (defun midnight-next ()
   "Return the number of seconds till the next midnight."
-  (multiple-value-bind (sec min hrs) (decode-time)
+  (multiple-value-bind (sec min hrs) 
+      (values-list (decode-time))
     (- (* 24 60 60) (* 60 60 hrs) (* 60 min) sec)))
 
 ;;;###autoload