diff options
| -rw-r--r-- | lisp/ibuf-ext.el | 14 |
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 |