Mercurial > emacs
changeset 102531:26dfa5308c26
M-v correctness.
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Fri, 13 Mar 2009 19:43:38 +0000 |
| parents | 7c75a2c271c1 |
| children | 596cf3f6aa57 |
| files | lisp/ChangeLog lisp/ibuf-ext.el lisp/midnight.el |
| diffstat | 3 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))))
--- 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