;;; ibuffer.el --- operate on buffers like dired -*- lexical-binding:t -*-
-;; Copyright (C) 2000-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2016 Free Software Foundation, Inc.
;; Author: Colin Walters <walters@verbum.org>
;; Maintainer: John Paul Wallington <jpw@gnu.org>
Thus, if you wanted to use these two formats, the appropriate
value for this variable would be
- '((mark \" \" name)
+ \\='((mark \" \" name)
(mark modified read-only
(name 16 16 :left)
(size 6 -1 :right)))
(message "%s buffers marked" count))
(ibuffer-redisplay t))
-(defun ibuffer-mark-forward (arg)
- "Mark the buffer on this line, and move forward ARG lines.
+(defsubst ibuffer-get-region-and-prefix ()
+ (let ((arg (prefix-numeric-value current-prefix-arg)))
+ (if (use-region-p) (list (region-beginning) (region-end) arg)
+ (list nil nil arg))))
+
+(defun ibuffer-mark-forward (start end arg)
+ "Mark the buffers in the region, or ARG buffers.
If point is on a group name, this function operates on that group."
- (interactive "p")
- (ibuffer-mark-interactive arg ibuffer-marked-char))
+ (interactive (ibuffer-get-region-and-prefix))
+ (ibuffer-mark-region-or-n-with-char start end arg ibuffer-marked-char))
-(defun ibuffer-unmark-forward (arg)
- "Unmark the buffer on this line, and move forward ARG lines.
+(defun ibuffer-unmark-forward (start end arg)
+ "Unmark the buffers in the region, or ARG buffers.
If point is on a group name, this function operates on that group."
- (interactive "p")
- (ibuffer-mark-interactive arg ?\s))
+ (interactive (ibuffer-get-region-and-prefix))
+ (ibuffer-mark-region-or-n-with-char start end arg ?\s))
(defun ibuffer-unmark-backward (arg)
- "Unmark the buffer on this line, and move backward ARG lines.
+ "Unmark the ARG previous buffers.
If point is on a group name, this function operates on that group."
(interactive "p")
- (ibuffer-unmark-forward (- arg)))
+ (ibuffer-unmark-forward nil nil (- arg)))
+
+(defun ibuffer-mark-region-or-n-with-char (start end arg mark-char)
+ (if (use-region-p)
+ (let ((cur (point)) (line-count (count-lines start end)))
+ (goto-char start)
+ (ibuffer-mark-interactive line-count mark-char)
+ (goto-char cur))
+ (ibuffer-mark-interactive arg mark-char)))
(defun ibuffer-mark-interactive (arg mark &optional movement)
(ibuffer-assert-ibuffer-mode)
(list (ibuffer-current-buffer)
mark))))
-(defun ibuffer-mark-for-delete (arg)
- "Mark the buffers on ARG lines forward for deletion.
+(defun ibuffer-mark-for-delete (start end arg)
+ "Mark for deletion the buffers in the region, or ARG buffers.
If point is on a group name, this function operates on that group."
- (interactive "P")
- (ibuffer-mark-interactive arg ibuffer-deletion-char 1))
+ (interactive (ibuffer-get-region-and-prefix))
+ (ibuffer-mark-region-or-n-with-char start end arg ibuffer-deletion-char))
(defun ibuffer-mark-for-delete-backwards (arg)
- "Mark the buffers on ARG lines backward for deletion.
+ "Mark for deletion the ARG previous buffers.
If point is on a group name, this function operates on that group."
- (interactive "P")
+ (interactive "p")
(ibuffer-mark-interactive arg ibuffer-deletion-char -1))
(defun ibuffer-current-buffer (&optional must-be-live)
(let ((procs 0)
(files 0))
(dolist (string strings)
- (if (string-match "\\(\?:\\`(\[\[:ascii:\]\]\+)\\)" string)
+ (if (string-match "\\(?:\\`([[:ascii:]]+)\\)" string)
(progn (setq procs (1+ procs))
(if (< (match-end 0) (length string))
(setq files (1+ files))))
;; Kill the line if the buffer is dead
'kill)))
;; A given mapping function should return:
- ;; `nil' if it chose not to affect the buffer
+ ;; nil if it chose not to affect the buffer
;; `kill' means the remove line from the buffer list
- ;; `t' otherwise
+ ;; t otherwise
(cl-incf ibuffer-map-lines-total)
(cond ((null result)
(forward-line 1))
(defun ibuffer-update-title-and-summary (format)
(ibuffer-assert-ibuffer-mode)
;; Don't do funky font-lock stuff here
- (let ((after-change-functions nil))
+ (let ((inhibit-modification-hooks t))
(if (get-text-property (point-min) 'ibuffer-title)
(delete-region (point-min)
(next-single-property-change
(eq ibuffer-always-show-last-buffer
:nomini)
(minibufferp (cadr bufs)))
- (cl-caddr bufs)
+ (nth 2 bufs)
(cadr bufs))
(ibuffer-current-buffers-with-marks bufs)
ibuffer-display-maybe-show-predicates)))
(require 'ibuf-ext))
(let* ((sortdat (assq ibuffer-sorting-mode
ibuffer-sorting-functions-alist))
- (func (cl-caddr sortdat)))
+ (func (nth 2 sortdat)))
(let ((result
;; actually sort the buffers
(if (and sortdat func)
(orig (count-lines (point-min) (point)))
;; Inhibit font-lock caching tricks, since we're modifying the
;; entire buffer at once
- (after-change-functions nil)
+ (inhibit-modification-hooks t)
(ext-loaded (featurep 'ibuf-ext))
(bgroups (if ext-loaded
(ibuffer-generate-filter-groups bmarklist)
(defun ibuffer (&optional other-window-p name qualifiers noselect
shrink filter-groups formats)
"Begin using Ibuffer to edit a list of buffers.
-Type 'h' after entering ibuffer for more information.
+Type `h' after entering ibuffer for more information.
All arguments are optional.
OTHER-WINDOW-P says to use another window.
Operations on marked buffers:
\\<ibuffer-mode-map>
- '\\[ibuffer-do-save]' - Save the marked buffers
- '\\[ibuffer-do-view]' - View the marked buffers in this frame.
- '\\[ibuffer-do-view-other-frame]' - View the marked buffers in another frame.
- '\\[ibuffer-do-revert]' - Revert the marked buffers.
- '\\[ibuffer-do-toggle-read-only]' - Toggle read-only state of marked buffers.
- '\\[ibuffer-do-delete]' - Kill the marked buffers.
- '\\[ibuffer-do-isearch]' - Do incremental search in the marked buffers.
- '\\[ibuffer-do-isearch-regexp]' - Isearch for regexp in the marked buffers.
- '\\[ibuffer-do-replace-regexp]' - Replace by regexp in each of the marked
+ `\\[ibuffer-do-save]' - Save the marked buffers
+ `\\[ibuffer-do-view]' - View the marked buffers in this frame.
+ `\\[ibuffer-do-view-other-frame]' - View the marked buffers in another frame.
+ `\\[ibuffer-do-revert]' - Revert the marked buffers.
+ `\\[ibuffer-do-toggle-read-only]' - Toggle read-only state of marked buffers.
+ `\\[ibuffer-do-delete]' - Kill the marked buffers.
+ `\\[ibuffer-do-isearch]' - Do incremental search in the marked buffers.
+ `\\[ibuffer-do-isearch-regexp]' - Isearch for regexp in the marked buffers.
+ `\\[ibuffer-do-replace-regexp]' - Replace by regexp in each of the marked
buffers.
- '\\[ibuffer-do-query-replace]' - Query replace in each of the marked buffers.
- '\\[ibuffer-do-query-replace-regexp]' - As above, with a regular expression.
- '\\[ibuffer-do-print]' - Print the marked buffers.
- '\\[ibuffer-do-occur]' - List lines in all marked buffers which match
+ `\\[ibuffer-do-query-replace]' - Query replace in each of the marked buffers.
+ `\\[ibuffer-do-query-replace-regexp]' - As above, with a regular expression.
+ `\\[ibuffer-do-print]' - Print the marked buffers.
+ `\\[ibuffer-do-occur]' - List lines in all marked buffers which match
a given regexp (like the function `occur').
- '\\[ibuffer-do-shell-command-pipe]' - Pipe the contents of the marked
+ `\\[ibuffer-do-shell-command-pipe]' - Pipe the contents of the marked
buffers to a shell command.
- '\\[ibuffer-do-shell-command-pipe-replace]' - Replace the contents of the marked
+ `\\[ibuffer-do-shell-command-pipe-replace]' - Replace the contents of the marked
buffers with the output of a shell command.
- '\\[ibuffer-do-shell-command-file]' - Run a shell command with the
+ `\\[ibuffer-do-shell-command-file]' - Run a shell command with the
buffer's file as an argument.
- '\\[ibuffer-do-eval]' - Evaluate a form in each of the marked buffers. This
+ `\\[ibuffer-do-eval]' - Evaluate a form in each of the marked buffers. This
is a very flexible command. For example, if you want to make all
of the marked buffers read only, try using (read-only-mode 1) as
the input form.
- '\\[ibuffer-do-view-and-eval]' - As above, but view each buffer while the form
+ `\\[ibuffer-do-view-and-eval]' - As above, but view each buffer while the form
is evaluated.
- '\\[ibuffer-do-kill-lines]' - Remove the marked lines from the *Ibuffer* buffer,
+ `\\[ibuffer-do-kill-lines]' - Remove the marked lines from the *Ibuffer* buffer,
but don't kill the associated buffer.
- '\\[ibuffer-do-kill-on-deletion-marks]' - Kill all buffers marked for deletion.
+ `\\[ibuffer-do-kill-on-deletion-marks]' - Kill all buffers marked for deletion.
Marking commands:
- '\\[ibuffer-mark-forward]' - Mark the buffer at point.
- '\\[ibuffer-toggle-marks]' - Unmark all currently marked buffers, and mark
+ `\\[ibuffer-mark-forward]' - Mark the buffer at point.
+ `\\[ibuffer-toggle-marks]' - Unmark all currently marked buffers, and mark
all unmarked buffers.
- '\\[ibuffer-unmark-forward]' - Unmark the buffer at point.
- '\\[ibuffer-unmark-backward]' - Unmark the buffer at point, and move to the
+ `\\[ibuffer-unmark-forward]' - Unmark the buffer at point.
+ `\\[ibuffer-unmark-backward]' - Unmark the buffer at point, and move to the
previous line.
- '\\[ibuffer-unmark-all]' - Unmark all marked buffers.
- '\\[ibuffer-mark-by-mode]' - Mark buffers by major mode.
- '\\[ibuffer-mark-unsaved-buffers]' - Mark all \"unsaved\" buffers.
+ `\\[ibuffer-unmark-all]' - Unmark all marked buffers.
+ `\\[ibuffer-mark-by-mode]' - Mark buffers by major mode.
+ `\\[ibuffer-mark-unsaved-buffers]' - Mark all \"unsaved\" buffers.
This means that the buffer is modified, and has an associated file.
- '\\[ibuffer-mark-modified-buffers]' - Mark all modified buffers,
+ `\\[ibuffer-mark-modified-buffers]' - Mark all modified buffers,
regardless of whether or not they have an associated file.
- '\\[ibuffer-mark-special-buffers]' - Mark all buffers whose name begins and
- ends with '*'.
- '\\[ibuffer-mark-dissociated-buffers]' - Mark all buffers which have
+ `\\[ibuffer-mark-special-buffers]' - Mark all buffers whose name begins and
+ ends with `*'.
+ `\\[ibuffer-mark-dissociated-buffers]' - Mark all buffers which have
an associated file, but that file doesn't currently exist.
- '\\[ibuffer-mark-read-only-buffers]' - Mark all read-only buffers.
- '\\[ibuffer-mark-dired-buffers]' - Mark buffers in `dired' mode.
- '\\[ibuffer-mark-help-buffers]' - Mark buffers in `help-mode', `apropos-mode', etc.
- '\\[ibuffer-mark-old-buffers]' - Mark buffers older than `ibuffer-old-time'.
- '\\[ibuffer-mark-for-delete]' - Mark the buffer at point for deletion.
- '\\[ibuffer-mark-by-name-regexp]' - Mark buffers by their name, using a regexp.
- '\\[ibuffer-mark-by-mode-regexp]' - Mark buffers by their major mode, using a regexp.
- '\\[ibuffer-mark-by-file-name-regexp]' - Mark buffers by their filename, using a regexp.
+ `\\[ibuffer-mark-read-only-buffers]' - Mark all read-only buffers.
+ `\\[ibuffer-mark-dired-buffers]' - Mark buffers in `dired' mode.
+ `\\[ibuffer-mark-help-buffers]' - Mark buffers in `help-mode', `apropos-mode', etc.
+ `\\[ibuffer-mark-old-buffers]' - Mark buffers older than `ibuffer-old-time'.
+ `\\[ibuffer-mark-for-delete]' - Mark the buffer at point for deletion.
+ `\\[ibuffer-mark-by-name-regexp]' - Mark buffers by their name, using a regexp.
+ `\\[ibuffer-mark-by-mode-regexp]' - Mark buffers by their major mode, using a regexp.
+ `\\[ibuffer-mark-by-file-name-regexp]' - Mark buffers by their filename, using a regexp.
Filtering commands:
- '\\[ibuffer-filter-by-mode]' - Add a filter by any major mode.
- '\\[ibuffer-filter-by-used-mode]' - Add a filter by a major mode now in use.
- '\\[ibuffer-filter-by-derived-mode]' - Add a filter by derived mode.
- '\\[ibuffer-filter-by-name]' - Add a filter by buffer name.
- '\\[ibuffer-filter-by-content]' - Add a filter by buffer content.
- '\\[ibuffer-filter-by-filename]' - Add a filter by filename.
- '\\[ibuffer-filter-by-size-gt]' - Add a filter by buffer size.
- '\\[ibuffer-filter-by-size-lt]' - Add a filter by buffer size.
- '\\[ibuffer-filter-by-predicate]' - Add a filter by an arbitrary Lisp predicate.
- '\\[ibuffer-save-filters]' - Save the current filters with a name.
- '\\[ibuffer-switch-to-saved-filters]' - Switch to previously saved filters.
- '\\[ibuffer-add-saved-filters]' - Add saved filters to current filters.
- '\\[ibuffer-or-filter]' - Replace the top two filters with their logical OR.
- '\\[ibuffer-pop-filter]' - Remove the top filter.
- '\\[ibuffer-negate-filter]' - Invert the logical sense of the top filter.
- '\\[ibuffer-decompose-filter]' - Break down the topmost filter.
- '\\[ibuffer-filter-disable]' - Remove all filtering currently in effect.
+ `\\[ibuffer-filter-by-mode]' - Add a filter by any major mode.
+ `\\[ibuffer-filter-by-used-mode]' - Add a filter by a major mode now in use.
+ `\\[ibuffer-filter-by-derived-mode]' - Add a filter by derived mode.
+ `\\[ibuffer-filter-by-name]' - Add a filter by buffer name.
+ `\\[ibuffer-filter-by-content]' - Add a filter by buffer content.
+ `\\[ibuffer-filter-by-filename]' - Add a filter by filename.
+ `\\[ibuffer-filter-by-size-gt]' - Add a filter by buffer size.
+ `\\[ibuffer-filter-by-size-lt]' - Add a filter by buffer size.
+ `\\[ibuffer-filter-by-predicate]' - Add a filter by an arbitrary Lisp predicate.
+ `\\[ibuffer-save-filters]' - Save the current filters with a name.
+ `\\[ibuffer-switch-to-saved-filters]' - Switch to previously saved filters.
+ `\\[ibuffer-add-saved-filters]' - Add saved filters to current filters.
+ `\\[ibuffer-or-filter]' - Replace the top two filters with their logical OR.
+ `\\[ibuffer-pop-filter]' - Remove the top filter.
+ `\\[ibuffer-negate-filter]' - Invert the logical sense of the top filter.
+ `\\[ibuffer-decompose-filter]' - Break down the topmost filter.
+ `\\[ibuffer-filter-disable]' - Remove all filtering currently in effect.
Filter group commands:
- '\\[ibuffer-filters-to-filter-group]' - Create filter group from filters.
- '\\[ibuffer-pop-filter-group]' - Remove top filter group.
- '\\[ibuffer-forward-filter-group]' - Move to the next filter group.
- '\\[ibuffer-backward-filter-group]' - Move to the previous filter group.
- '\\[ibuffer-clear-filter-groups]' - Remove all active filter groups.
- '\\[ibuffer-save-filter-groups]' - Save the current groups with a name.
- '\\[ibuffer-switch-to-saved-filter-groups]' - Restore previously saved groups.
- '\\[ibuffer-delete-saved-filter-groups]' - Delete previously saved groups.
+ `\\[ibuffer-filters-to-filter-group]' - Create filter group from filters.
+ `\\[ibuffer-pop-filter-group]' - Remove top filter group.
+ `\\[ibuffer-forward-filter-group]' - Move to the next filter group.
+ `\\[ibuffer-backward-filter-group]' - Move to the previous filter group.
+ `\\[ibuffer-clear-filter-groups]' - Remove all active filter groups.
+ `\\[ibuffer-save-filter-groups]' - Save the current groups with a name.
+ `\\[ibuffer-switch-to-saved-filter-groups]' - Restore previously saved groups.
+ `\\[ibuffer-delete-saved-filter-groups]' - Delete previously saved groups.
Sorting commands:
- '\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes.
- '\\[ibuffer-invert-sorting]' - Reverse the current sorting order.
- '\\[ibuffer-do-sort-by-alphabetic]' - Sort the buffers lexicographically.
- '\\[ibuffer-do-sort-by-filename/process]' - Sort the buffers by the file name.
- '\\[ibuffer-do-sort-by-recency]' - Sort the buffers by last viewing time.
- '\\[ibuffer-do-sort-by-size]' - Sort the buffers by size.
- '\\[ibuffer-do-sort-by-major-mode]' - Sort the buffers by major mode.
+ `\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes.
+ `\\[ibuffer-invert-sorting]' - Reverse the current sorting order.
+ `\\[ibuffer-do-sort-by-alphabetic]' - Sort the buffers lexicographically.
+ `\\[ibuffer-do-sort-by-filename/process]' - Sort the buffers by the file name.
+ `\\[ibuffer-do-sort-by-recency]' - Sort the buffers by last viewing time.
+ `\\[ibuffer-do-sort-by-size]' - Sort the buffers by size.
+ `\\[ibuffer-do-sort-by-major-mode]' - Sort the buffers by major mode.
Other commands:
- '\\[ibuffer-update]' - Regenerate the list of all buffers.
+ `\\[ibuffer-update]' - Regenerate the list of all buffers.
Prefix arg means to toggle whether buffers that match
`ibuffer-maybe-show-predicates' should be displayed.
- '\\[ibuffer-switch-format]' - Change the current display format.
- '\\[forward-line]' - Move point to the next line.
- '\\[previous-line]' - Move point to the previous line.
- '\\[describe-mode]' - This help.
- '\\[ibuffer-diff-with-file]' - View the differences between this buffer
+ `\\[ibuffer-switch-format]' - Change the current display format.
+ `\\[forward-line]' - Move point to the next line.
+ `\\[previous-line]' - Move point to the previous line.
+ `\\[describe-mode]' - This help.
+ `\\[ibuffer-diff-with-file]' - View the differences between this buffer
and its associated file.
- '\\[ibuffer-visit-buffer]' - View the buffer on this line.
- '\\[ibuffer-visit-buffer-other-window]' - As above, but in another window.
- '\\[ibuffer-visit-buffer-other-window-noselect]' - As both above, but don't select
+ `\\[ibuffer-visit-buffer]' - View the buffer on this line.
+ `\\[ibuffer-visit-buffer-other-window]' - As above, but in another window.
+ `\\[ibuffer-visit-buffer-other-window-noselect]' - As both above, but don't select
the new window.
- '\\[ibuffer-bury-buffer]' - Bury (not kill!) the buffer on this line.
+ `\\[ibuffer-bury-buffer]' - Bury (not kill!) the buffer on this line.
** Information on Filtering:
buffer has its own stack of active filters. For example, suppose you
are working on an Emacs Lisp project. You can create an Ibuffer
buffer displays buffers in just `emacs-lisp' modes via
-'\\[ibuffer-filter-by-mode] emacs-lisp-mode RET'. In this case, there
+`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET'. In this case, there
is just one entry on the filtering stack.
You can also combine filters. The various filtering commands push a
buffers which satisfy ALL criteria on the stack. For example, suppose
you only want to see buffers in `emacs-lisp' mode, whose names begin
with \"gnus\". You can accomplish this via:
-'\\[ibuffer-filter-by-mode] emacs-lisp-mode RET
-\\[ibuffer-filter-by-name] ^gnus RET'.
+
+ \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
+ \\[ibuffer-filter-by-name] ^gnus RET
Additionally, you can OR the top two filters together with
-'\\[ibuffer-or-filters]'. To see all buffers in either
+`\\[ibuffer-or-filters]'. To see all buffers in either
`emacs-lisp-mode' or `lisp-interaction-mode', type:
-'\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filter-by-mode] lisp-interaction-mode RET \\[ibuffer-or-filters]'.
+ \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
+ \\[ibuffer-filter-by-mode] lisp-interaction-mode RET
+ \\[ibuffer-or-filters]
Filters can also be saved and restored using mnemonic names: see the
functions `ibuffer-save-filters' and `ibuffer-switch-to-saved-filters'.
-To remove the top filter on the stack, use '\\[ibuffer-pop-filter]', and
+To remove the top filter on the stack, use `\\[ibuffer-pop-filter]', and
to disable all filtering currently in effect, use
-'\\[ibuffer-filter-disable]'.
+`\\[ibuffer-filter-disable]'.
** Filter Groups:
groups\". A filter group is basically a named group of buffers which
match a filter, which are displayed together in an Ibuffer buffer. To
create a filter group, simply use the regular functions to create a
-filter, and then type '\\[ibuffer-filters-to-filter-group]'.
+filter, and then type `\\[ibuffer-filters-to-filter-group]'.
A quick example will make things clearer. Suppose that one wants to
-group all of one's Emacs Lisp buffers together. To do this, type
+group all of one's Emacs Lisp buffers together. To do this, type:
-'\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filters-to-filter-group] RET emacs lisp buffers RET'
+ \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
+ \\[ibuffer-filters-to-filter-group] emacs lisp buffers RET
You may, of course, name the group whatever you want; it doesn't have
to be \"emacs lisp buffers\". Filter groups may be composed of any
filter groups are displayed in this order of precedence.
You may rearrange filter groups by using the regular
-'\\[ibuffer-kill-line]' and '\\[ibuffer-yank]' pair. Yanked groups
+`\\[ibuffer-kill-line]' and `\\[ibuffer-yank]' pair. Yanked groups
will be inserted before the group at point."
;; Include state info next to the mode name.
(set (make-local-variable 'mode-line-process)
\f
;;; Start of automatically extracted autoloads.
\f
-;;;### (autoloads nil "ibuf-ext" "ibuf-ext.el" "442bac528ce7a9a20bb191d0eb08cbd8")
+;;;### (autoloads nil "ibuf-ext" "ibuf-ext.el" "9521139d5f2ba7c870e3101fd73bb3ce")
;;; Generated autoloads from ibuf-ext.el
(autoload 'ibuffer-auto-mode "ibuf-ext" "\
\(fn)" t nil)
(autoload 'ibuffer-mark-special-buffers "ibuf-ext" "\
-Mark all buffers whose name begins and ends with '*'.
+Mark all buffers whose name begins and ends with `*'.
\(fn)" t nil)
(run-hooks 'ibuffer-load-hook)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; ibuffer.el ends here