mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
John Paul Wallington 2006-02-02 21:57:09 +00:00
parent 9fe14abebd
commit 4b9ae390fa
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ibuf-ext.el
View File

@ -1,7 +1,7 @@
;;; ibuf-ext.el --- extensions for ibuffer ;;; ibuf-ext.el --- extensions for ibuffer
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, ;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
;; 2005 Free Software Foundation, Inc. ;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Colin Walters <walters@verbum.org> ;; Author: Colin Walters <walters@verbum.org>
;; Maintainer: John Paul Wallington <jpw@gnu.org> ;; Maintainer: John Paul Wallington <jpw@gnu.org>
@ -1448,6 +1448,17 @@ You can then feed the file name(s) to other commands with \\[yank]."
(with-current-buffer buf (with-current-buffer buf
(memq major-mode ibuffer-help-buffer-modes))))) (memq major-mode ibuffer-help-buffer-modes)))))
;;;###autoload
(defun ibuffer-mark-compressed-file-buffers ()
"Mark buffers whose associated file is compressed."
(interactive)
(ibuffer-mark-on-buffer
#'(lambda (buf)
(with-current-buffer buf
(and buffer-file-name
(string-match ibuffer-compressed-file-name-regexp
buffer-file-name))))))
;;;###autoload ;;;###autoload
(defun ibuffer-mark-old-buffers () (defun ibuffer-mark-old-buffers ()
"Mark buffers which have not been viewed in `ibuffer-old-time' days." "Mark buffers which have not been viewed in `ibuffer-old-time' days."