From: Glenn Morris Date: Fri, 11 Sep 2009 06:47:26 +0000 (+0000) Subject: Put autoloads in ibuffer.el rather than loaddefs.el. X-Git-Tag: emacs-pretest-23.1.90~1393 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9351bbd16c30c77832bc7c7514889d9507b01f9;p=emacs.git Put autoloads in ibuffer.el rather than loaddefs.el. --- 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 @@ ;;; ibuf-ext.el --- extensions for ibuffer -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, -;; 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Author: Colin Walters ;; Maintainer: John Paul Wallington @@ -544,7 +544,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'." (dolist (filtergroup filter-group-alist) (let ((filterset (cdr filtergroup))) (multiple-value-bind (hip-crowd lamers) - (values-list + (values-list (ibuffer-split-list (lambda (bufmark) (ibuffer-included-in-filters-p (car bufmark) filterset)) @@ -1161,10 +1161,10 @@ Ordering is lexicographic." (string-lessp ;; FIXME: For now just compare the file name and the process name ;; (if it exists). Is there a better way to do this? - (or (buffer-file-name (car a)) + (or (buffer-file-name (car a)) (let ((pr-a (get-buffer-process (car a)))) (and (processp pr-a) (process-name pr-a)))) - (or (buffer-file-name (car b)) + (or (buffer-file-name (car b)) (let ((pr-b (get-buffer-process (car b)))) (and (processp pr-b) (process-name pr-b)))))) @@ -1598,5 +1598,9 @@ defaults to one." (provide 'ibuf-ext) +;; Local Variables: +;; generated-autoload-file: "ibuffer.el" +;; End: + ;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d ;;; ibuf-ext.el ends here