User: aidan
Date: 09/08/13 15:23:26
Modified: packages/xemacs-packages/ibuffer ChangeLog ibuf-ext.el
ibuffer.el
Log:
Use #'destructuring-bind, not #'multiple-value-bind, ibuffer.
Revision Changes Path
1.53 +8 -0 XEmacs/packages/xemacs-packages/ibuffer/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ChangeLog,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -p -r1.52 -r1.53
--- ChangeLog 2003/10/31 16:55:21 1.52
+++ ChangeLog 2009/08/13 13:23:24 1.53
@@ -1,3 +1,11 @@
+2009-08-13 Aidan Kehoe <[email protected]>
+
+ * 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 <[email protected]>
* Makefile (VERSION): XEmacs package 1.09 released.
1.14 +1 -1 XEmacs/packages/xemacs-packages/ibuffer/ibuf-ext.el
Index: ibuf-ext.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuf-ext.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- ibuf-ext.el 2002/04/30 20:33:27 1.13
+++ ibuf-ext.el 2009/08/13 13:23:25 1.14
@@ -446,7 +446,7 @@ To evaluate a form without viewing the b
(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))
1.41 +1 -1 XEmacs/packages/xemacs-packages/ibuffer/ibuffer.el
Index: ibuffer.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuffer.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -p -r1.40 -r1.41
--- ibuffer.el 2002/07/03 03:34:43 1.40
+++ ibuffer.el 2009/08/13 13:23:25 1.41
@@ -1849,7 +1849,7 @@ If point is on a group name, this functi
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)))
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.