[Emacs-diffs] emacs/lisp midnight.el ChangeLog ibuf-ext.el

[D. Goel]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     D. Goel <deego> 09/03/13 19:43:42

Modified files:
        lisp           : midnight.el ChangeLog ibuf-ext.el 

Log message:
        M-v correctness.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/midnight.el?cvsroot=emacs&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15460&r2=1.15461
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ibuf-ext.el?cvsroot=emacs&r1=1.75&r2=1.76

Patches:
Index: midnight.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/midnight.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- midnight.el 5 Jan 2009 03:19:33 -0000       1.37
+++ midnight.el 13 Mar 2009 19:43:38 -0000      1.38
@@ -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

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15460
retrieving revision 1.15461
diff -u -b -r1.15460 -r1.15461
--- ChangeLog   13 Mar 2009 17:53:09 -0000      1.15460
+++ ChangeLog   13 Mar 2009 19:43:39 -0000      1.15461
@@ -1,3 +1,11 @@
+2009-03-13  D. Goel  <address@hidden>
+
+       * 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  <address@hidden>
 
        * textmodes/ispell.el (ispell-get-word): Initialize spellchecker

Index: ibuf-ext.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ibuf-ext.el,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -b -r1.75 -r1.76
--- ibuf-ext.el 5 Jan 2009 03:19:20 -0000       1.75
+++ ibuf-ext.el 13 Mar 2009 19:43:42 -0000      1.76
@@ -544,10 +544,11 @@
       (dolist (filtergroup filter-group-alist)
        (let ((filterset (cdr filtergroup)))
          (multiple-value-bind (hip-crowd lamers)
+             (values-list 
              (ibuffer-split-list (lambda (bufmark)
                                    (ibuffer-included-in-filters-p (car bufmark)
                                                                   filterset))
-                                 bmarklist)
+                                  bmarklist))
            (aset vec i hip-crowd)
            (incf i)
            (setq bmarklist lamers))))