aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-09-11 06:47:26 +0000
committerGlenn Morris2009-09-11 06:47:26 +0000
commitd9351bbd16c30c77832bc7c7514889d9507b01f9 (patch)
tree0fdb940e47f1eeb4234a094f8243bf7b3c679aa7
parentd35d0238944a59ed437b7cc9c600f40047ee7ea6 (diff)
downloademacs-d9351bbd16c30c77832bc7c7514889d9507b01f9.tar.gz
emacs-d9351bbd16c30c77832bc7c7514889d9507b01f9.zip
Put autoloads in ibuffer.el rather than loaddefs.el.
-rw-r--r--lisp/ibuf-ext.el14
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 73c5840aefa..a585c75f620 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1,7 +1,7 @@
1;;; ibuf-ext.el --- extensions for ibuffer 1;;; ibuf-ext.el --- extensions for ibuffer
2 2
3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 3;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
4;; 2008, 2009 Free Software Foundation, Inc. 4;; 2009 Free Software Foundation, Inc.
5 5
6;; Author: Colin Walters <walters@verbum.org> 6;; Author: Colin Walters <walters@verbum.org>
7;; Maintainer: John Paul Wallington <jpw@gnu.org> 7;; Maintainer: John Paul Wallington <jpw@gnu.org>
@@ -544,7 +544,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
544 (dolist (filtergroup filter-group-alist) 544 (dolist (filtergroup filter-group-alist)
545 (let ((filterset (cdr filtergroup))) 545 (let ((filterset (cdr filtergroup)))
546 (multiple-value-bind (hip-crowd lamers) 546 (multiple-value-bind (hip-crowd lamers)
547 (values-list 547 (values-list
548 (ibuffer-split-list (lambda (bufmark) 548 (ibuffer-split-list (lambda (bufmark)
549 (ibuffer-included-in-filters-p (car bufmark) 549 (ibuffer-included-in-filters-p (car bufmark)
550 filterset)) 550 filterset))
@@ -1161,10 +1161,10 @@ Ordering is lexicographic."
1161 (string-lessp 1161 (string-lessp
1162 ;; FIXME: For now just compare the file name and the process name 1162 ;; FIXME: For now just compare the file name and the process name
1163 ;; (if it exists). Is there a better way to do this? 1163 ;; (if it exists). Is there a better way to do this?
1164 (or (buffer-file-name (car a)) 1164 (or (buffer-file-name (car a))
1165 (let ((pr-a (get-buffer-process (car a)))) 1165 (let ((pr-a (get-buffer-process (car a))))
1166 (and (processp pr-a) (process-name pr-a)))) 1166 (and (processp pr-a) (process-name pr-a))))
1167 (or (buffer-file-name (car b)) 1167 (or (buffer-file-name (car b))
1168 (let ((pr-b (get-buffer-process (car b)))) 1168 (let ((pr-b (get-buffer-process (car b))))
1169 (and (processp pr-b) (process-name pr-b)))))) 1169 (and (processp pr-b) (process-name pr-b))))))
1170 1170
@@ -1598,5 +1598,9 @@ defaults to one."
1598 1598
1599(provide 'ibuf-ext) 1599(provide 'ibuf-ext)
1600 1600
1601;; Local Variables:
1602;; generated-autoload-file: "ibuffer.el"
1603;; End:
1604
1601;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d 1605;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d
1602;;; ibuf-ext.el ends here 1606;;; ibuf-ext.el ends here