M-v correctness.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be344f5d9712d132f78f8ce9a1447911ade1eccb..9f8704ef1ae98171eb81c05880225ad2441cefe9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index fb68345be94b835e095797b4270c0d90a48f65bd..73c5840aefa15ea6a216a96aea7201122cd594af 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -544,10 +544,11 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
       (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 --git a/lisp/midnight.el b/lisp/midnight.el
index 710c9fafe0b3ad97ce43855615763271507c92a3..a3546fe7ad45754643a85f0916474a02ad8bb3d0 100644 (file)
--- a/lisp/midnight.el
+++ b/lisp/midnight.el
@@ -205,7 +205,8 @@ The default value is `clean-buffer-list'."
 
 (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