APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/ibuffer/ChangeLog addition: 2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. XEmacs Packages (existing ChangeLogs) source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/ibuffer/ibuffer.el xemacs-packages/ibuffer/ibuf-ext.el Index: xemacs-packages/ibuffer/ibuf-ext.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuf-ext.el,v retrieving revision 1.13 diff -u -r1.13 ibuf-ext.el --- xemacs-packages/ibuffer/ibuf-ext.el 2002/04/30 20:33:27 1.13 +++ xemacs-packages/ibuffer/ibuf-ext.el 2009/08/13 13:22:51 ＠＠ -446,7 +446,7 ＠＠ (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)) Index: xemacs-packages/ibuffer/ibuffer.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuffer.el,v retrieving revision 1.40 diff -u -r1.40 ibuffer.el --- xemacs-packages/ibuffer/ibuffer.el 2002/07/03 03:34:43 1.40 +++ xemacs-packages/ibuffer/ibuffer.el 2009/08/13 13:22:52 ＠＠ -1849,7 +1849,7 ＠＠ 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))) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches