Commits

Anonymous committed bc65e0e

Use #'destructuring-bind, not #'multiple-value-bind, ibuffer.

  • Participants
  • Parent commits 3e3e5b3

Comments (0)

Files changed (3)

+2009-08-13  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* ibuf-ext.el (ibuffer-generate-filter-groups): 
+	* ibuffer.el (ibuffer-fontify-region-function): 
+	Use #'destructuring-bind, not #'multiple-value-bind, given that
+	we're not actually using multiple value returns in the called
+	forms.
+
 2003-10-31  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.09 released.
 	  (i 0))
       (dolist (filtergroup filter-group-alist)
 	(let ((filterset (cdr filtergroup)))
-	  (multiple-value-bind (hip-crowd lamers)
+	  (destructuring-bind (hip-crowd lamers)
 	      (ibuffer-split-list (lambda (bufmark)
 				    (ibuffer-included-in-filters-p (car bufmark)
 								   filterset))
 				 ibuffer-filter-group-name-face)
 	    (unless (or (get-text-property (point) 'ibuffer-title)
 			(get-text-property (point) 'ibuffer-summary))
-	      (multiple-value-bind (buf mark)
+	      (destructuring-bind (buf mark)
 		  (get-text-property (point) 'ibuffer-properties)
 		(let* ((namebeg (next-single-property-change (point) 'ibuffer-name-column
 							     nil (ibuffer-line-end-position)))