Commit 4b9ae390 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(ibuffer-mark-compressed-file-buffers): New command.

parent 9fe14abe
;;; ibuf-ext.el --- extensions for ibuffer
;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
;; 2005 Free Software Foundation, Inc.
;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Colin Walters <>
;; Maintainer: John Paul Wallington <>
......@@ -1448,6 +1448,17 @@ You can then feed the file name(s) to other commands with \\[yank]."
(with-current-buffer buf
(memq major-mode ibuffer-help-buffer-modes)))))
(defun ibuffer-mark-compressed-file-buffers ()
"Mark buffers whose associated file is compressed."
#'(lambda (buf)
(with-current-buffer buf
(and buffer-file-name
(string-match ibuffer-compressed-file-name-regexp
(defun ibuffer-mark-old-buffers ()
"Mark buffers which have not been viewed in `ibuffer-old-time' days."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment