From f5fbd9ad219df87e468dd3a35b6df37af5f49d6b Mon Sep 17 00:00:00 2001 From: Deepak Goel Date: Fri, 13 Mar 2009 19:43:38 +0000 Subject: [PATCH] M-v correctness. --- lisp/ChangeLog | 8 ++++++++ lisp/ibuf-ext.el | 9 +++++---- lisp/midnight.el | 3 ++- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index be344f5d971..9f8704ef1ae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2009-03-13 D. Goel + + * 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 * textmodes/ispell.el (ispell-get-word): Initialize spellchecker diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index fb68345be94..73c5840aefa 100644 --- 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 710c9fafe0b..a3546fe7ad4 100644 --- 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 -- 2.39.5