WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/ibuf-ext.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:19 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/ibuf-ext.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ibuffer)
#@59 Delete all entries in ALIST that have a key equal to KEY.
(defalias 'ibuffer-delete-alist #[(key alist) "\303\304	\n\"\211\203\305\n\"\202\n)\207" [entry key alist nil assoc delete] 3 (#$ . 570)])
#@56 Return a copy of LIST with duplicate elements removed.
(defalias 'ibuffer-remove-duplicates #[(list) "\303	\203	@\n\235\204	@\nB	A\211\204\n\237*\207" [list tail new nil] 3 (#$ . 781)])
(defalias 'ibuffer-split-list #[(ibuffer-split-list-fn ibuffer-split-list-elts) "\306\211\n\306\211\203'\f@
!\203	B\202 B\fA\211\204\f*	\237\237*D\207" [lamers hip-crowd ibuffer-split-list-elts ibuffer-split-list-elt --dolist-tail-- ibuffer-split-list-fn nil] 3])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\314\310\311&\207" [custom-declare-variable ibuffer-never-show-predicates nil "A list of predicates (a regexp or function) for buffers not to display.\nIf a regexp, then it will be matched against the buffer's name.\nIf a function, it will be called with the buffer as an argument, and\nshould return non-nil if this buffer should not be shown." :type (repeat (choice regexp function)) :require ibuf-ext :group ibuffer ibuffer-always-show-predicates "A list of predicates (a regexp or function) for buffers to always display.\nIf a regexp, then it will be matched against the buffer's name.\nIf a function, it will be called with the buffer as an argument, and\nshould return non-nil if this buffer should be shown.\nNote that buffers matching one of these predicates will be shown\nregardless of any active filters in this buffer." (repeat (choice regexp function))] 10)
#@64 A list of regexps which should match buffer names to not show.
(defvar ibuffer-tmp-hide-regexps nil (#$ . 2217))
#@67 A list of regexps which should match buffer names to always show.
(defvar ibuffer-tmp-show-regexps nil (#$ . 2336))
(defvar ibuffer-auto-buffers-changed nil)
#@403 An alist of filter qualifiers to switch between.

This variable should look like (("STRING" QUALIFIERS)
                                ("STRING" QUALIFIERS) ...), where
QUALIFIERS is a list of the same form as
`ibuffer-filtering-qualifiers'.
See also the variables `ibuffer-filtering-qualifiers',
`ibuffer-filtering-alist', and the functions
`ibuffer-switch-to-saved-filters', `ibuffer-save-filters'.
(custom-declare-variable 'ibuffer-saved-filters ''(("gnus" ((or (mode . message-mode) (mode . mail-mode) (mode . gnus-group-mode) (mode . gnus-summary-mode) (mode . gnus-article-mode)))) ("programming" ((or (mode . emacs-lisp-mode) (mode . cperl-mode) (mode . c-mode) (mode . java-mode) (mode . idl-mode) (mode . lisp-mode))))) '(#$ . 2501) :type '(repeat sexp) :group 'ibuffer)
#@109 A list like (SYMBOL . QUALIFIER) which filters the current buffer list.
See also `ibuffer-filtering-alist'.
(defvar ibuffer-filtering-qualifiers nil (#$ . 3289))
#@394 An alist of (SYMBOL DESCRIPTION FUNCTION) which describes a filter.

You most likely do not want to modify this variable directly; see
`define-ibuffer-filter'.

SYMBOL is the symbolic name of the filter.  DESCRIPTION is used when
displaying information to the user.  FUNCTION is given a buffer and
the value of the qualifier, and returns non-nil if and only if the
buffer should be displayed.
(defvar ibuffer-filtering-alist nil (#$ . 3458))
#@419 An alist which has special formats used when a filter is active.
The contents of this variable should look like:
 ((FILTER (FORMAT FORMAT ...)) (FILTER (FORMAT FORMAT ...)) ...)

For example, suppose that when you add a filter for buffers whose
major mode is `emacs-lisp-mode', you only want to see the mark and the
name of the buffer.  You could accomplish that by adding:
 (mode ((mark " " name)))
to this variable.
(custom-declare-variable 'ibuffer-filter-format-alist nil '(#$ . 3907) :type '(repeat (list :tag "Association" (symbol :tag "Filter") (list :tag "Formats" (repeat (sexp :tag "Format"))))) :group 'ibuffer)
(defvar ibuffer-cached-filter-formats nil)
(defvar ibuffer-compiled-filter-formats nil)
#@214 A list like (("NAME" ((SYMBOL . QUALIFIER) ...) ...) which groups buffers.
The SYMBOL should be one from `ibuffer-filtering-alist'.
The QUALIFIER should be the same as QUALIFIER in
`ibuffer-filtering-qualifiers'.
(defvar ibuffer-filter-groups nil (#$ . 4625))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable ibuffer-show-empty-filter-groups t "If non-nil, then show the names of filter groups which are empty." :type boolean :group ibuffer ibuffer-saved-filter-groups nil "An alist of filtering groups to switch between.\n\nThis variable should look like ((\"STRING\" QUALIFIERS)\n                                (\"STRING\" QUALIFIERS) ...), where\nQUALIFIERS is a list of the same form as\n`ibuffer-filtering-qualifiers'.\n\nSee also the variables `ibuffer-filter-groups',\n`ibuffer-filtering-qualifiers', `ibuffer-filtering-alist', and the\nfunctions `ibuffer-switch-to-saved-filter-groups',\n`ibuffer-save-filter-groups'." (repeat sexp)] 8)
#@56 A list of filtering groups which are currently hidden.
(defvar ibuffer-hidden-filter-groups nil (#$ . 5643))
(defvar ibuffer-filter-group-kill-ring nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable ibuffer-old-time 72 "The number of hours before a buffer is considered \"old\"." :type (choice (const :tag "72 hours (3 days)" 72) (const :tag "48 hours (2 days)" 48) (const :tag "24 hours (1 day)" 24) (integer :tag "hours")) :group ibuffer ibuffer-save-with-custom t "If non-nil, then use Custom to save interactively changed variables.\nCurrently, this only applies to `ibuffer-saved-filters' and\n`ibuffer-saved-filter-groups'." boolean] 8)
(defalias 'ibuffer-ext-visible-p #[(buf all &optional ibuffer-buf) "\306	\"\206A\306\n\"\206\306\"?\205A\f\204\"\306
\"?\205A\2044	\205A	=?\205A\307\n\"\206A\306\"\207" [buf ibuffer-tmp-show-regexps ibuffer-tmp-hide-regexps ibuffer-never-show-predicates all ibuffer-maybe-show-predicates ibuffer-buf-matches-predicates ibuffer-included-in-filters-p ibuffer-view-ibuffer ibuffer-buf ibuffer-filtering-qualifiers ibuffer-always-show-predicates] 3])
#@103 Non-nil if Ibuffer-Auto mode is enabled.
Use the command `ibuffer-auto-mode' to change this variable.
(defvar ibuffer-auto-mode nil (#$ . 6834))
(make-variable-buffer-local 'ibuffer-auto-mode)
#@230 Toggle use of Ibuffer's auto-update facility (Ibuffer Auto mode).
With a prefix argument ARG, enable Ibuffer Auto mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'ibuffer-auto-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310!\204\311\312!\210\313\314!\210\315\316\317\"\210\320\321\n\2031\322\2022\323\"\210\324\325!\203S\303 \203F\303 \232\203S\326\327\n\203P\330\202Q\331\"\210)\332 \210\n\207" [#1=#:last-message arg ibuffer-auto-mode current-message toggle prefix-numeric-value 0 derived-mode-p ibuffer-mode error "This buffer is not in Ibuffer mode" frame-or-buffer-changed-p ibuffer-auto-buffers-changed add-hook post-command-hook ibuffer-auto-update-changed run-hooks ibuffer-auto-mode-hook ibuffer-auto-mode-on-hook ibuffer-auto-mode-off-hook called-interactively-p any message "Ibuffer-Auto mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 7034) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [ibuffer-auto-mode-map add-minor-mode ibuffer-auto-mode nil boundp] 6)
(defalias 'ibuffer-auto-update-changed #[nil "\302\303!\205 \304 \305\211\205	@\305\306\307\217\210	A\211\204\305*\207" [buf --dolist-tail-- frame-or-buffer-changed-p ibuffer-auto-buffers-changed buffer-list nil (byte-code "rq\210	\203\302\303!\203\304\305\306\"\210)\305\207" [buf ibuffer-auto-mode derived-mode-p ibuffer-mode ibuffer-update nil t] 3) ((error))] 4])
#@65 Enable or disable filtering by the major mode chosen via mouse.
(defalias 'ibuffer-mouse-filter-by-mode #[(event) "\301!\207" [event ibuffer-interactive-filter-by-mode] 2 (#$ . 8563) "e"])
#@57 Enable or disable filtering by the major mode at point.
(defalias 'ibuffer-interactive-filter-by-mode #[(event-or-point) "\303!\203\304\305!!\210\202b\210\306 \307\n\236\203#\310\307\n\"\202,\311\307\312\313	\"B!\210)\314\315\316\"\207" [event-or-point buf ibuffer-filtering-qualifiers eventp posn-set-point event-end ibuffer-current-buffer mode ibuffer-delete-alist ibuffer-push-filter buffer-local-value major-mode ibuffer-update nil t] 5 (#$ . 8759) "d"])
#@70 Toggle the display status of the filter group chosen with the mouse.
(defalias 'ibuffer-mouse-toggle-filter-group #[(event) "\301\212\302!\210`)!\207" [event ibuffer-toggle-filter-group-1 mouse-set-point] 3 (#$ . 9235) "e"])
#@61 Toggle the display status of the filter group on this line.
(defalias 'ibuffer-toggle-filter-group #[nil "\300`!\207" [ibuffer-toggle-filter-group-1] 2 (#$ . 9467) nil])
(defalias 'ibuffer-toggle-filter-group-1 #[(posn) "\303\304\"\211;\204\305\306!\210	\n\235\203\307	\n\"\202 	\nB\310\311\312\")\207" [posn name ibuffer-hidden-filter-groups get-text-property ibuffer-filter-group-name error "No filtering group name present" delete ibuffer-update nil t] 4])
#@48 Move point forwards by COUNT filtering groups.
(defalias 'ibuffer-forward-filter-group #[(&optional count) "\204\301\302V\203(\303`\304\"\203\305`\304\306d$b\210\305`\304\306d$b\210\307S!\210\310\302!\207" [count 1 0 get-text-property ibuffer-filter-group-name next-single-property-change nil ibuffer-forward-filter-group ibuffer-forward-line] 5 (#$ . 9942) "P"])
#@49 Move point backwards by COUNT filtering groups.
(defalias 'ibuffer-backward-filter-group #[(&optional count) "\204\301\302V\203(\303`\304\"\203\305`\304\306e$b\210\305`\304\306e$b\210\307S!\210`eU\2035db\210\307\301!\210\310\302!\207" [count 1 0 get-text-property ibuffer-filter-group-name previous-single-property-change nil ibuffer-backward-filter-group ibuffer-forward-line] 5 (#$ . 10321) "P"])
#@67 Pipe the contents of each marked buffer to shell command COMMAND.
(defalias 'ibuffer-do-shell-command-pipe #[(command) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "rq\210\212\302ed	\303\304!$\210*\305\207" [buf command shell-command-on-region get-buffer-create "* ibuffer-shell-output*" t] 6] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; Shell command executed on %s buffers"] 4 (#$ . 10736) "sPipe to shell command: "])
#@72 Replace the contents of marked buffers with output of pipe to COMMAND.
(defalias 'ibuffer-do-shell-command-pipe-replace #[(command) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320\n\"\205>\321\322	\"\323\324!\210)\324\323\324!\210\325\326\f\"))\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark ibuffer-confirm-operation-on "replace buffer contents in" #[(buf mark) "rq\210\212rq\210\302ed	\303\304%\210+\304\207" [buf command shell-command-on-region nil t] 6] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; Buffer contents replaced in %s buffers"] 4 (#$ . 11540) "sPipe to shell command (replace): "])
#@66 Run shell command COMMAND separately on files of marked buffers.
(defalias 'ibuffer-do-shell-command-file #[(command) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "rq\210\212\303	\304\305\n\203\n\202\306\307 \310\311\307 G^O!!Q!\210*\312\207" [buf command buffer-file-name shell-command " " shell-quote-argument make-temp-file buffer-name 0 10 t] 9] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; Shell command executed on %s buffers"] 4 (#$ . 12417) "sShell command on buffer's file: "])
#@127 Evaluate FORM in each of the buffers.
Does not display the buffer during evaluation. See
`ibuffer-do-view-and-eval' for that.
(defalias 'ibuffer-do-eval #[(form) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\304!rq\210\212\305\n!\210*\306	\304!=\204\306)\207" [buf ibuffer-tmp-previous-buffer-modification form ibuffer-did-modification buffer-modified-p eval t] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; evaluated in %s buffers"] 4 (#$ . 13291) (list (read-from-minibuffer "Eval in buffers (form): " nil read-expression-map t 'read-expression-history))])
#@130 Evaluate FORM while displaying each of the marked buffers.
To evaluate a form without viewing the buffer, see `ibuffer-do-eval'.
(defalias 'ibuffer-do-view-and-eval #[(form) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\305!p\306\216\307!\210\310!*	\305!=\204\311)\207" [buf ibuffer-tmp-previous-buffer-modification ibuffer-buf form ibuffer-did-modification buffer-modified-p ((switch-to-buffer ibuffer-buf)) switch-to-buffer eval t] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; evaluated in %s buffers"] 4 (#$ . 14242) (list (read-from-minibuffer "Eval viewing in buffers (form): " nil read-expression-map t 'read-expression-history))])
#@50 Rename marked buffers as with `rename-uniquely'.
(defalias 'ibuffer-do-rename-uniquely #[nil "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\322\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "rq\210\212\301 \210*\302\207" [buf rename-uniquely t] 1] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; renamed %s buffers"] 4 (#$ . 15274) nil])
#@48 Revert marked buffers as with `revert-buffer'.
(defalias 'ibuffer-do-revert #[nil "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320\n\"\205<\321\322	\"\323\324!\210)\323\324!\210\325\326\f\"))\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark ibuffer-confirm-operation-on "revert" #[(buf mark) "\303!rq\210\212\304\305\211\"\210*\305	\303!=\204\305)\207" [buf ibuffer-tmp-previous-buffer-modification ibuffer-did-modification buffer-modified-p revert-buffer t] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; reverted %s buffers"] 4 (#$ . 15944) nil])
#@48 Perform a `isearch-forward' in marked buffers.
(defalias 'ibuffer-do-isearch #[nil "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\303!\304\305 !	\303!=\204\306)\207" [buf ibuffer-tmp-previous-buffer-modification ibuffer-did-modification buffer-modified-p multi-isearch-buffers ibuffer-get-marked-buffers t] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; searched in %s buffers"] 4 (#$ . 16774) nil])
#@55 Perform a `isearch-forward-regexp' in marked buffers.
(defalias 'ibuffer-do-isearch-regexp #[nil "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\303!\304\305 !	\303!=\204\306)\207" [buf ibuffer-tmp-previous-buffer-modification ibuffer-did-modification buffer-modified-p multi-isearch-buffers-regexp ibuffer-get-marked-buffers t] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; searched regexp in %s buffers"] 4 (#$ . 17562) nil])
#@47 Perform a `replace-regexp' in marked buffers.
(defalias 'ibuffer-do-replace-regexp #[(from-str to-str) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\306!\307 \310\216\311!\210\212eb\210\312
\313\314#\203#\315!\210\202,\314	\306!=\2040\314)\207" [buf ibuffer-tmp-previous-buffer-modification #1=#:wconfig ibuffer-case-fold-search case-fold-search from-str buffer-modified-p current-window-configuration ((set-window-configuration #1#)) switch-to-buffer re-search-forward nil t replace-match to-str ibuffer-did-modification] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; replaced in %s buffers"] 4 (#$ . 18378) (let* ((from-str (read-from-minibuffer "Replace regexp: ")) (to-str (read-from-minibuffer (concat "Replace " from-str " with: ")))) (list from-str to-str))])
#@46 Perform a `query-replace' in marked buffers.
(defalias 'ibuffer-do-query-replace #[(&rest args) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\306!\307 \310\216\311!\210\212eb\210\312\313
\"\210,\314	\306!=\204%\314
)\207" [buf ibuffer-tmp-previous-buffer-modification #1=#:wconfig ibuffer-case-fold-search case-fold-search args buffer-modified-p current-window-configuration ((set-window-configuration #1#)) switch-to-buffer apply query-replace t ibuffer-did-modification] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; replaced in %s buffers"] 4 (#$ . 19544) (byte-code "\300\301\302\211#\207" [query-replace-read-args "Query replace" t] 4)])
#@53 Perform a `query-replace-regexp' in marked buffers.
(defalias 'ibuffer-do-query-replace-regexp #[(&rest args) "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "\306!\307 \310\216\311!\210\212eb\210\312\313
\"\210,\314	\306!=\204%\314
)\207" [buf ibuffer-tmp-previous-buffer-modification #1=#:wconfig ibuffer-case-fold-search case-fold-search args buffer-modified-p current-window-configuration ((set-window-configuration #1#)) switch-to-buffer apply query-replace-regexp t ibuffer-did-modification] 4] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; replaced in %s buffers"] 4 (#$ . 20580) (byte-code "\300\301\302\211#\207" [query-replace-read-args "Query replace regexp" t] 4)])
#@46 Print marked buffers as with `print-buffer'.
(defalias 'ibuffer-do-print #[nil "\305\306!\204\f\307\310\311C\"\210\312\313	!\211\204 \314\315 !C\316	!\210\317\320	\"\321\322!\210)\321\322!\210\323\324\f\"*\207" [ibuffer-did-modification ibuffer-marked-char marked-names func count derived-mode-p ibuffer-mode signal cl-assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[(buf mark) "rq\210\212\301 \210*\302\207" [buf print-buffer t] 1] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; printed %s buffers"] 4 (#$ . 21644) nil])
(defalias 'ibuffer-included-in-filters-p #[(buf filters) "\301\302\303\">?\207" [filters nil mapcar #[(qual) "\302	\"\207" [buf qual ibuffer-included-in-filter-p] 3]] 4])
(defalias 'ibuffer-included-in-filter-p #[(buf filter) "@\302=\203\303	A\"?\207\303	\"\207" [filter buf not ibuffer-included-in-filter-p-1] 3])
(defalias 'ibuffer-included-in-filter-p-1 #[(buf filter) "@\211\306=\203\307\310\311A\">\202~	\312=\203:\313A\n\"\211\204-\314\307!\210\315\316A\"\210\317\f\211A@)\")\202~@\236\211@A\211@A\211@A\211\204v\314\307!\210\315\320@\"\210\fA\".\n)??\207" [filter #1=#:val ibuffer-saved-filters data buf x or t mapcar #[(x) "\302	\"\207" [buf x ibuffer-included-in-filter-p] 3] saved assoc ibuffer-filter-disable error "Unknown saved filter %s" ibuffer-included-in-filters-p "Undefined filter %s" ibuffer-filtering-alist #2=#:val #3=#:xcar #4=#:xcdr #5=#:xcar #6=#:xcdr #7=#:xcar #8=#:xcdr _type _desc func] 5])
(defalias 'ibuffer-generate-filter-groups #[(bmarklist &optional noempty nodefault) "\203	\202\306	\307\310BC\"\311\nG\310\"\312\n\310\211
\203Q
@\211A\313\314\"\211@A@\fI\210T,
A\211
\204!*\310\312W\203\212\fH\203s\203\200\n8@BB)T\211\202].\207" [nodefault ibuffer-filter-groups filter-group-alist i vec filtergroup append "Default" nil make-vector 0 ibuffer-split-list #[(bufmark) "\302@	\"\207" [bufmark filterset ibuffer-included-in-filters-p] 3] --dolist-tail-- filterset bmarklist #1=#:--cl-var-- hip-crowd lamers ret j --dotimes-limit-- bufs noempty] 5])
#@50 Make the current filters into a filtering group.
(defalias 'ibuffer-filters-to-filter-group #[(name) "\204\303\304!\210	B\nB\305 \207" [ibuffer-filtering-qualifiers name ibuffer-filter-groups error "No filters in effect" ibuffer-filter-disable] 2 (#$ . 23911) "sName for filtering group: "])
#@50 Set the current filter groups to filter by mode.
(defalias 'ibuffer-set-filter-groups-by-mode #[nil "\303\304\305\303\306\307 \"!	\203\202\310\311\")\"\312\313\314\"\207" [modes ibuffer-view-ibuffer ibuffer-filter-groups mapcar #[(mode) "\301\302\"\300BCB\207" [mode format "%s"] 3] ibuffer-remove-duplicates #[(buf) "\301\302\"\207" [buf buffer-local-value major-mode] 3] buffer-list delq ibuffer-mode ibuffer-update nil t] 6 (#$ . 24214) nil])
#@32 Remove the first filter group.
(defalias 'ibuffer-pop-filter-group #[nil "\204\302\303!\210\304\211A@	\"\305\306\307\"\207" [ibuffer-filter-groups ibuffer-hidden-filter-groups error "No filter groups active" delete ibuffer-update nil t] 3 (#$ . 24677) nil])
(defalias 'ibuffer-read-filter-group-name #[(msg &optional nodefault noerror) "\204\f	\204\f\306\307!\210\310\n\311\312 ?\f#\f\203 \313\314
\"\202!
\244\315\316$\207" [noerror ibuffer-filter-groups msg ibuffer-show-empty-filter-groups nodefault ibuffer-hidden-filter-groups error "No filter groups active" completing-read ibuffer-generate-filter-groups ibuffer-current-state-list remove "Default" nil t] 6])
#@55 Decompose the filter group GROUP into active filters.
(defalias 'ibuffer-decompose-filter-group #[(group) "\304	\"A\305	\"\n)\306\307\310\"\207" [group ibuffer-filter-groups data ibuffer-filtering-qualifiers assoc ibuffer-delete-alist ibuffer-update nil t] 3 (#$ . 25361) (list (ibuffer-read-filter-group-name "Decompose filter group: " t))])
#@27 Remove all filter groups.
(defalias 'ibuffer-clear-filter-groups #[nil "\302\211\303\302\304\"\207" [ibuffer-filter-groups ibuffer-hidden-filter-groups nil ibuffer-update t] 4 (#$ . 25715) nil])
(defalias 'ibuffer-current-filter-groups-with-position #[nil "\212eb\210\302\211m\204*\303`\304\"\211\203*	b\210\305`\304\"	BB\303	\304\"b\210\202\237+\207" [result pos nil next-single-property-change ibuffer-filter-group-name get-text-property] 3])
#@52 Move point to the filter group whose name is NAME.
(defalias 'ibuffer-jump-to-filter-group #[(name) "\303\304 \"\211\203	\211Ab)\202\305\306\")\207" [name #1=#:ibuffer-aif-sym it assoc ibuffer-current-filter-groups-with-position error "No filter group with name %s"] 4 (#$ . 26178) (list (ibuffer-read-filter-group-name "Jump to filter group: "))])
#@96 Kill the filter group named NAME.
The group will be added to `ibuffer-filter-group-kill-ring'.
(defalias 'ibuffer-kill-filter-group #[(name) "\306\232\203\n\307\310!\210\311	\"\211\203)\n\312!\fB\313	\"\314
\")\202.\307\315\"\210)\316\317\320\"\207" [name ibuffer-filter-groups #1=#:ibuffer-aif-sym it ibuffer-filter-group-kill-ring ibuffer-hidden-filter-groups "Default" error "Can't kill default filter group" assoc copy-tree ibuffer-delete-alist delete "No filter group with name \"%s\"" ibuffer-update nil t] 4 (#$ . 26541) (list (ibuffer-read-filter-group-name "Kill filter group: " t))])
#@71 Kill the filter group at point.
See also `ibuffer-kill-filter-group'.
(defalias 'ibuffer-kill-line #[(&optional arg interactive-p) "\212\304\305!\210\306`\307\")\211\203\310	!)\202$\n\203 \311\202!\312\313\")\207" [#1=#:ibuffer-aif-sym it interactive-p arg ibuffer-forward-line 0 get-text-property ibuffer-filter-group-name ibuffer-kill-filter-group call-interactively funcall kill-line] 4 (#$ . 27155) "P\np"])
(defalias 'ibuffer-insert-filter-group-before #[(newgroup group) "\306\307\310	\"\311\211\203&@\f\232\203\312\306\211\202\n\nTA\211\204
\n*\2047	\fC\244\211\202b\313
!\203F\f	B\211\202b
	\233\211
\211
@
AB\241\210)
\211\f\240**\207" [found ibuffer-filter-groups res groups group pos nil mapcar car 0 t zerop newgroup cell #1=#:v #2=#:v] 4])
#@58 Yank the last killed filter group before group at point.
(defalias 'ibuffer-yank #[nil "\300\301`\302\"\206\301`\303\"\206\304\305!!\207" [ibuffer-yank-filter-group get-text-property ibuffer-filter-group-name ibuffer-filter-group error "No filter group at point"] 4 (#$ . 27956) nil])
#@60 Yank the last killed filter group before group named NAME.
(defalias 'ibuffer-yank-filter-group #[(name) "\204\302\303!\210\212\304\305!\210\306\211A@	\"\210)\307\310\311\"\207" [ibuffer-filter-group-kill-ring name error "The Ibuffer filter group kill-ring is empty" ibuffer-forward-line 0 ibuffer-insert-filter-group-before ibuffer-update nil t] 3 (#$ . 28251) (list (ibuffer-read-filter-group-name "Yank filter group before group: "))])
#@158 Save all active filter groups GROUPS as NAME.
They are added to `ibuffer-saved-filter-groups'.  Interactively,
prompt for NAME, and use the current filters.
(defalias 'ibuffer-save-filter-groups #[(name groups) "\305	\"\211\203\n\211\f\241\210)\202\fB	B)\306 \207" [name ibuffer-saved-filter-groups #1=#:ibuffer-aif-sym it groups assoc ibuffer-maybe-save-stuff] 4 (#$ . 28702) (byte-code "\204\301\302!\207\303\304!D\207" [ibuffer-filter-groups error "No filter groups active" read-from-minibuffer "Save current filter groups as: "] 2)])
#@92 Delete saved filter groups with NAME.
They are removed from `ibuffer-saved-filter-groups'.
(defalias 'ibuffer-delete-saved-filter-groups #[(name) "\302	\"\303 \210\304\305\306\"\207" [name ibuffer-saved-filter-groups ibuffer-delete-alist ibuffer-maybe-save-stuff ibuffer-update nil t] 3 (#$ . 29259) (list (if (null ibuffer-saved-filter-groups) (error "No saved filter groups") (completing-read "Delete saved filter group: " ibuffer-saved-filter-groups nil t)))])
#@115 Set this buffer's filter groups to saved version with NAME.
The value from `ibuffer-saved-filter-groups' is used.
(defalias 'ibuffer-switch-to-saved-filter-groups #[(name) "\304	\"A\305\306\305\307\"\207" [name ibuffer-saved-filter-groups ibuffer-filter-groups ibuffer-hidden-filter-groups assoc nil ibuffer-update t] 3 (#$ . 29732) (list (cond ((null ibuffer-saved-filter-groups) (error "No saved filters")) ((null (cdr ibuffer-saved-filter-groups)) (caar ibuffer-saved-filter-groups)) (t (completing-read "Switch to saved filter group: " ibuffer-saved-filter-groups nil t))))])
#@184 Disable all filters currently in effect in this buffer.
With optional arg DELETE-FILTER-GROUPS non-nil, delete all filter
group definitions by setting `ibuffer-filter-groups' to nil.
(defalias 'ibuffer-filter-disable #[(&optional delete-filter-groups) "\304	\203\304\305 \306\304\307\"\210\205\310\311!!)\207" [ibuffer-filtering-qualifiers delete-filter-groups ibuffer-filter-groups buf nil ibuffer-current-buffer ibuffer-update t ibuffer-jump-to-buffer buffer-name] 3 (#$ . 30322) nil])
#@39 Remove the top filter in this buffer.
(defalias 'ibuffer-pop-filter #[nil "\204\302\303!\210\210A\304 \305\306\307\"\210	\205\310\311	!!)\207" [ibuffer-filtering-qualifiers buf error "No filters in effect" ibuffer-current-buffer ibuffer-update nil t ibuffer-jump-to-buffer buffer-name] 3 (#$ . 30825) nil])
#@50 Add QUALIFIER to `ibuffer-filtering-qualifiers'.
(defalias 'ibuffer-push-filter #[(qualifier) "	B\211\207" [qualifier ibuffer-filtering-qualifiers] 2 (#$ . 31147)])
#@276 Separate the top compound filter (OR, NOT, or SAVED) in this buffer.

This means that the topmost filter on the filtering stack, which must
be a complex filter like (OR [name: foo] [mode: bar-mode]), will be
turned into two separate filters [name: foo] and [mode: bar-mode].
(defalias 'ibuffer-decompose-filter #[nil "\204\306\307!\210\211A@\211@\211\310=\203 \311	A\"\202[\n\312=\203G\313	A\"\211\2049\314 \210\306\315	A\"\210\311\f\211A@)\")\202[\n\316=\203U	AB\202[\306\317	@\"\210*\320\321\322\"\207" [ibuffer-filtering-qualifiers lim #1=#:val ibuffer-saved-filters data x error "No filters in effect" or append saved assoc ibuffer-filter-disable "Unknown saved filter %s" not "Filter type %s is not compound" ibuffer-update nil t] 4 (#$ . 31321) nil])
#@59 Exchange the top two filters on the stack in this buffer.
(defalias 'ibuffer-exchange-filters #[nil "G\303W\203\304\305!\210\211A@\211A@\211B	B*\306\307\310\"\207" [ibuffer-filtering-qualifiers second first 2 error "Need two filters to exchange" ibuffer-update nil t] 4 (#$ . 32107) nil])
#@59 Negate the sense of the top filter in the current buffer.
(defalias 'ibuffer-negate-filter #[nil "\204\302\303!\210\211A@\211@\304=\203	A\202\304	BB)\305\306\307\"\207" [ibuffer-filtering-qualifiers lim error "No filters in effect" not ibuffer-update nil t] 4 (#$ . 32415) nil])
#@152 Replace the top two filters in this buffer with their logical OR.
If optional argument REVERSE is non-nil, instead break the top OR
filter into parts.
(defalias 'ibuffer-or-filter #[(&optional reverse) "\203&	\203	\211@@)\306=\204\307\310!\210	\211A@\211A	\244)\202X	G\311W\2031\307\312!\210	\211A@	\211A@\f@\306=\203P\306
D\fA\244	B\202W\306
\fE	B*\313\314\315\"\207" [reverse ibuffer-filtering-qualifiers x lim second first or error "Top filter is not an OR" 2 "Need two filters to OR" ibuffer-update nil t] 4 (#$ . 32713) "P"])
(defalias 'ibuffer-maybe-save-stuff #[nil "\205\303\304!\203\304\301	\"\210\304\302\n\"\207\305\306!\207" [ibuffer-save-with-custom ibuffer-saved-filters ibuffer-saved-filter-groups fboundp customize-save-variable message "Not saved permanently: Customize not available"] 3])
#@133 Save FILTERS in this buffer with name NAME in `ibuffer-saved-filters'.
Interactively, prompt for NAME, and use the current filters.
(defalias 'ibuffer-save-filters #[(name filters) "\305	\"\211\203\n\211\f\241\210)\202\fD	B)\306 \207" [name ibuffer-saved-filters #1=#:ibuffer-aif-sym it filters assoc ibuffer-maybe-save-stuff] 4 (#$ . 33552) (byte-code "\204\301\302!\207\303\304!D\207" [ibuffer-filtering-qualifiers error "No filters currently in effect" read-from-minibuffer "Save current filters as: "] 2)])
#@62 Delete saved filters with NAME from `ibuffer-saved-filters'.
(defalias 'ibuffer-delete-saved-filters #[(name) "\302	\"\303 \210\304\305\306\"\207" [name ibuffer-saved-filters ibuffer-delete-alist ibuffer-maybe-save-stuff ibuffer-update nil t] 3 (#$ . 34082) (list (if (null ibuffer-saved-filters) (error "No saved filters") (completing-read "Delete saved filters: " ibuffer-saved-filters nil t)))])
#@74 Add saved filters from `ibuffer-saved-filters' to this buffer's filters.
(defalias 'ibuffer-add-saved-filters #[(name) "\302B	B\303\304\305\"\207" [name ibuffer-filtering-qualifiers saved ibuffer-update nil t] 3 (#$ . 34489) (list (if (null ibuffer-saved-filters) (error "No saved filters") (completing-read "Add saved filters: " ibuffer-saved-filters nil t)))])
#@78 Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'.
(defalias 'ibuffer-switch-to-saved-filters #[(name) "\302BC\303\304\305\"\207" [name ibuffer-filtering-qualifiers saved ibuffer-update nil t] 3 (#$ . 34860) (list (if (null ibuffer-saved-filters) (error "No saved filters") (completing-read "Switch to saved filters: " ibuffer-saved-filters nil t)))])
(defalias 'ibuffer-format-filter-group-data #[(filter) "\302\232\203\303\207\304\305\306	\236A\307#P\207" [filter ibuffer-filter-groups "Default" "" "Filter:" mapconcat ibuffer-format-qualifier " "] 5])
(defalias 'ibuffer-format-qualifier #[(qualifier) "\242\301=\203\302\303A!\304Q\207\303!\207" [qualifier not " [NOT" ibuffer-format-qualifier-1 "]"] 3])
(defalias 'ibuffer-format-qualifier-1 #[(qualifier) "@\211\305=\203\306A\307Q\202@	\310=\203#\311\312\313A\314#\307Q\202@@\n\236\2041\315\316\"\210\317\211A@)\320\321\322A\"R))\207" [qualifier #1=#:val ibuffer-filtering-alist type x saved " [filter: " "]" or " [OR" mapconcat ibuffer-format-qualifier "" error "Ibuffer: bad qualifier %s" " [" ": " format "%s]"] 7])
#@118 Create a completion table of buffer modes currently in use.
If INCLUDE-PARENTS is non-nil then include parent modes.
(defalias 'ibuffer-list-buffer-modes #[(&optional include-parents) "\305\306 \305\211\2035\n@\307\310	\"\211\203->\204-B\f\205(\311N\211\204)\nA\211\204*\312\313\")\207" [modes buf --dolist-tail-- this-mode include-parents nil buffer-list buffer-local-value major-mode derived-mode-parent mapcar symbol-name] 4 (#$ . 35995)])
#@59 Toggle current view to buffers with major mode QUALIFIER.
(defalias 'ibuffer-filter-by-mode #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter mode message "%s" format "Filter by major mode added:  %s" ibuffer-update nil t] 5 (#$ . 36466) (list (let* ((buf (ibuffer-current-buffer)) (default (if (and buf (buffer-live-p buf)) (symbol-name (buffer-local-value 'major-mode buf))))) (intern (completing-read (if default (format "Filter by major mode (default %s): " default) "Filter by major mode: ") obarray #'(lambda (e) (string-match "-mode\\'" (symbol-name e))) t nil nil default))))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist mode "major mode" #[(buf qualifier) "\302\303	\"=\207" [qualifier buf buffer-local-value major-mode] 4]] 3)
#@148 Toggle current view to buffers with major mode QUALIFIER.
Called interactively, this function allows selection of modes
currently used by buffers.
(defalias 'ibuffer-filter-by-used-mode #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter used-mode message "%s" format "Filter by major mode in use added:  %s" ibuffer-update nil t] 5 (#$ . 37287) (list (let* ((buf (ibuffer-current-buffer)) (default (if (and buf (buffer-live-p buf)) (symbol-name (buffer-local-value 'major-mode buf))))) (intern (completing-read (if default (format "Filter by major mode (default %s): " default) "Filter by major mode: ") (ibuffer-list-buffer-modes) nil t nil nil default))))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist used-mode "major mode in use" #[(buf qualifier) "\302\303	\"=\207" [qualifier buf buffer-local-value major-mode] 4]] 3)
#@74 Toggle current view to buffers whose major mode inherits from QUALIFIER.
(defalias 'ibuffer-filter-by-derived-mode #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter derived-mode message "%s" format "Filter by derived mode added:  %s" ibuffer-update nil t] 5 (#$ . 38192) (list (intern (completing-read "Filter by derived mode: " (ibuffer-list-buffer-modes t) nil t)))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist derived-mode "derived mode" #[(buf qualifier) "rq\210\302	!)\207" [buf qualifier derived-mode-p] 2]] 3)
#@62 Toggle current view to buffers with name matching QUALIFIER.
(defalias 'ibuffer-filter-by-name #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter name message "%s" format "Filter by buffer name added:  %s" ibuffer-update nil t] 5 (#$ . 38792) (list (read-from-minibuffer "Filter by name (regexp): "))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist name "buffer name" #[(buf qualifier) "\302\303	!\"\207" [qualifier buf string-match buffer-name] 4]] 3)
#@66 Toggle current view to buffers with filename matching QUALIFIER.
(defalias 'ibuffer-filter-by-filename #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter filename message "%s" format "Filter by filename added:  %s" ibuffer-update nil t] 5 (#$ . 39324) (list (read-from-minibuffer "Filter by filename (regexp): "))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist filename "filename" #[(buf qualifier) "\304\305\"\211\205	\306\n\"))\207" [buf #:ibuffer-aif-sym it qualifier buffer-local-value buffer-file-name string-match] 4]] 3)
#@66 Toggle current view to buffers with size greater than QUALIFIER.
(defalias 'ibuffer-filter-by-size-gt #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter size-gt message "%s" format "Filter by size greater than added:  %s" ibuffer-update nil t] 5 (#$ . 39937) (list (string-to-number (read-from-minibuffer "Filter by size greater than: ")))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist size-gt "size greater than" #[(buf qualifier) "rq\210\302 )	V\207" [buf qualifier buffer-size] 2]] 3)
#@63 Toggle current view to buffers with size less than QUALIFIER.
(defalias 'ibuffer-filter-by-size-lt #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter size-lt message "%s" format "Filter by size less than added:  %s" ibuffer-update nil t] 5 (#$ . 40506) (list (string-to-number (read-from-minibuffer "Filter by size less than: ")))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist size-lt "size less than" #[(buf qualifier) "rq\210\302 )	W\207" [buf qualifier buffer-size] 2]] 3)
#@64 Toggle current view to buffers whose contents match QUALIFIER.
(defalias 'ibuffer-filter-by-content #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter content message "%s" format "Filter by content added:  %s" ibuffer-update nil t] 5 (#$ . 41063) (list (read-from-minibuffer "Filter by content (regexp): "))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist content "content" #[(buf qualifier) "rq\210\212eb\210\302	\303\304#*\207" [buf qualifier re-search-forward nil t] 4]] 3)
#@69 Toggle current view to buffers for which QUALIFIER returns non-nil.
(defalias 'ibuffer-filter-by-predicate #[(qualifier) "\301\302B!\210\303\304\305\306\"\"\210\307\310\311\"\207" [qualifier ibuffer-push-filter predicate message "%s" format "Filter by predicate added:  %s" ibuffer-update nil t] 5 (#$ . 41619) (list (read-minibuffer "Filter by predicate (form): "))])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist predicate "predicate" #[(buf qualifier) "rq\210\302	!)\207" [buf qualifier eval] 2]] 3)
#@225 Toggle the current sorting mode.
Default sorting modes are:
 Recency - the last time the buffer was viewed
 Name - the name of the buffer
 Major Mode - the name of the major mode of the buffer
 Size - the size of the buffer
(defalias 'ibuffer-toggle-sorting-mode #[nil "\304\305\"\306\301\307\"\210\310	\311\"\n	>\243\242\206	@\211\312\313\"\210*\314\315!\207" [ibuffer-sorting-functions-alist modes ibuffer-sorting-mode next mapcar car add-to-list recency sort string-lessp message "Sorting by %s" ibuffer-redisplay t] 4 (#$ . 42149) nil])
#@52 Toggle whether or not sorting is in reverse order.
(defalias 'ibuffer-invert-sorting #[nil "?\301\302\203
\303\202\304\"\210\305\306!\207" [ibuffer-sorting-reversep message "Sorting order %s" "reversed" "normal" ibuffer-redisplay t] 3 (#$ . 42704) nil])
#@61 Sort the buffers by major modes.
Ordering is lexicographic.
(defalias 'ibuffer-do-sort-by-major-mode #[nil "\303\211	=\203\n?\304\305!\210\303\211\207" [ibuffer-sorting-mode ibuffer-last-sorting-mode ibuffer-sorting-reversep major-mode ibuffer-redisplay t] 3 (#$ . 42970) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist major-mode "major mode" #[(a b) "\302\303\304@\"!\227\302\303\304	@\"!\227\231\207" [a b symbol-name buffer-local-value major-mode] 5]] 3)
#@65 Sort the buffers by their mode name.
Ordering is lexicographic.
(defalias 'ibuffer-do-sort-by-mode-name #[nil "\303\211	=\203\n?\304\305!\210\303\211\207" [ibuffer-sorting-mode ibuffer-last-sorting-mode ibuffer-sorting-reversep mode-name ibuffer-redisplay t] 3 (#$ . 43470) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist mode-name "major mode name" #[(a b) "r@q\210\303	!)\227r\n@q\210\303	!)\227\231\207" [a mode-name b format-mode-line] 3]] 3)
#@61 Sort the buffers by their names.
Ordering is lexicographic.
(defalias 'ibuffer-do-sort-by-alphabetic #[nil "\303\211	=\203\n?\304\305!\210\303\211\207" [ibuffer-sorting-mode ibuffer-last-sorting-mode ibuffer-sorting-reversep alphabetic ibuffer-redisplay t] 3 (#$ . 43958) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist alphabetic "buffer name" #[(a b) "\302@!\302	@!\231\207" [a b buffer-name] 3]] 3)
#@33 Sort the buffers by their size.
(defalias 'ibuffer-do-sort-by-size #[nil "\303\211	=\203\n?\304\305!\210\303\211\207" [ibuffer-sorting-mode ibuffer-last-sorting-mode ibuffer-sorting-reversep size ibuffer-redisplay t] 3 (#$ . 44401) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist size "size" #[(a b) "r@q\210\302 )r	@q\210\302 )W\207" [a b buffer-size] 2]] 3)
#@51 Sort the buffers by their file name/process name.
(defalias 'ibuffer-do-sort-by-filename/process #[nil "\303\211	=\203\n?\304\305!\210\303\211\207" [ibuffer-sorting-mode ibuffer-last-sorting-mode ibuffer-sorting-reversep filename/process ibuffer-redisplay t] 3 (#$ . 44802) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist filename/process "file name" #[(a b) "\304@!\206\305@!\306	!\205\307	!)\304\n@!\206,\305\n@!\306!\205+\307!)\231\207" [a pr-a b pr-b buffer-file-name get-buffer-process processp process-name] 3]] 3)
#@43 Emulate `bs-show' from the bs.el package.
(defalias 'ibuffer-bs-show #[nil "\300\301\302\303\304\301%\210\305\306 \307\310#\207" [ibuffer t "*Ibuffer-bs*" ((filename . ".*")) nil define-key current-local-map "a" ibuffer-bs-toggle-all] 6 (#$ . 45375) nil])
#@54 Emulate `bs-toggle-show-all' from the bs.el package.
(defalias 'ibuffer-bs-toggle-all #[nil "\203\301 \207\302\303!\210\304\305\306\"\207" [ibuffer-filtering-qualifiers ibuffer-pop-filter ibuffer-push-filter (filename . ".*") ibuffer-update nil t] 3 (#$ . 45637) nil])
#@137 Add REGEXP to `ibuffer-tmp-hide-regexps'.
This means that buffers whose name matches REGEXP will not be shown
for this Ibuffer session.
(defalias 'ibuffer-add-to-tmp-hide #[(regexp) "	B\211\207" [regexp ibuffer-tmp-hide-regexps] 2 (#$ . 45916) (list (read-from-minibuffer "Never show buffers matching: " (regexp-quote (buffer-name (ibuffer-current-buffer t)))))])
#@140 Add REGEXP to `ibuffer-tmp-show-regexps'.
This means that buffers whose name matches REGEXP will always be shown
for this Ibuffer session.
(defalias 'ibuffer-add-to-tmp-show #[(regexp) "	B\211\207" [regexp ibuffer-tmp-show-regexps] 2 (#$ . 46289) (list (read-from-minibuffer "Always show buffers matching: " (regexp-quote (buffer-name (ibuffer-current-buffer t)))))])
#@306 Move forward by COUNT marked buffers (default 1).

If MARK is non-nil, it should be a character denoting the type of mark
to move by.  The default is `ibuffer-marked-char'.

If DIRECTION is non-nil, it should be an integer; negative integers
mean move backwards, non-negative integers mean move forwards.
(defalias 'ibuffer-forward-next-marked #[(&optional count mark direction) "\204\306	\204\f\n\204\306\307\310!\210`\307!\210`\fU\2048\311\312 \313\"\211A@)	=\2048\307!\210\202`\fU\205R\311\312 \313\"\211A@)	=?\205R\314\315	\")\207" [count mark ibuffer-marked-char direction opos x 1 ibuffer-forward-line 0 get-text-property line-beginning-position ibuffer-properties error "No buffers with mark %c"] 4 (#$ . 46666) "P"])
#@176 Move backwards by COUNT marked buffers (default 1).

If MARK is non-nil, it should be a character denoting the type of mark
to move by.  The default is `ibuffer-marked-char'.
(defalias 'ibuffer-backwards-next-marked #[(&optional count mark) "\302	\303#\207" [count mark ibuffer-forward-next-marked -1] 4 (#$ . 47419) "P"])
#@41 Hide all of the currently marked lines.
(defalias 'ibuffer-do-kill-lines #[nil "\303 \304U\203\305\306!\207\307\310	\"\311\312!\210)\305\313\n\")\207" [func ibuffer-marked-char count ibuffer-count-marked-lines 0 message "No buffers marked; use 'm' to mark a buffer" #[(_buf _mark) "\300\207" [kill] 1] ibuffer-map-on-mark ibuffer-redisplay t "Killed %s lines"] 3 (#$ . 47749) nil])
#@399 Move point to the buffer whose name is NAME.

If called interactively, prompt for a buffer name and go to the
corresponding line in the Ibuffer buffer.  If said buffer is in a
hidden group filter, open it.

If `ibuffer-jump-offer-only-visible-buffers' is non-nil, only offer
visible buffers in the completion list.  Calling the command with
a prefix argument reverses the meaning of that variable.
(defalias 'ibuffer-jump-to-buffer #[(name) "\303\230?\205)\304\305\306\307\304#\210	\204\n\203\310\311\215\210	\204&\312\313\"\202(	b)\207" [name buf-point ibuffer-hidden-filter-groups "" nil ibuffer-map-lines #[(buf _marks) "\303!	\230\205`\304\207" [buf name buf-point buffer-name nil] 2] t found (byte-code "\304\211\203.\n@\305	!\210\306 \210\307\310\311	#\210\203$\312\313\304\"\210\202'\306 \210\nA\211\204*\304\207" [ibuffer-hidden-filter-groups group --dolist-tail-- buf-point nil ibuffer-jump-to-filter-group ibuffer-toggle-filter-group ibuffer-map-lines #[(buf _marks) "\303!	\230\205`\304\207" [buf name buf-point buffer-name nil] 2] t throw found] 5) error "No buffer with name %s"] 4 (#$ . 48143) (list (let ((only-visible ibuffer-jump-offer-only-visible-buffers)) (if current-prefix-arg (progn (setq only-visible (not only-visible)))) (if only-visible (let ((table (mapcar #'(lambda (x) (buffer-name (car x))) (ibuffer-current-state-list)))) (if (null table) (progn (error "No buffers!"))) (completing-read "Jump to buffer: " table nil t)) (read-buffer "Jump to buffer: " nil t))))])
(defalias 'ibuffer-diff-buffer-with-file-1 #[(buffer) "\306\307\"\310\311!\211\205\232\312\216rq\210\313\312\211	\312\314%\210)\315\n!\315	!\316!\316\f! !\"\317\320#\321\"<\203A\"\202D\"C\204L\f\205Z\322\323!\322\323\324\325\326!\"!F\323
\206`!\323 \206h\f!D#B\327#$\330%$\331\261\210\332\333&\312p\312'$&!\210\331c\210.\334\335!\210\336	!\205\232\337	!*\207" [buffer tempfile bufferfile old new oldtmp buffer-local-value buffer-file-name make-temp-file "buffer-content-" nil write-region nomessage expand-file-name file-local-copy mapconcat identity append "-L" shell-quote-argument format "Buffer %s" buffer-name " " t "\n" diff-sentinel call-process sit-for 0 file-exists-p delete-file newtmp diff-switches switches diff-command command inhibit-read-only shell-file-name shell-command-switch] 14])
#@189 View the differences between marked buffers and their associated files.
If no buffers are marked, use buffer at point.
This requires the external program "diff" to be in your `exec-path'.
(defalias 'ibuffer-diff-with-file #[nil "\304\305!\210\306 \211\204\307\310!Cr\311\312!q\210\313\314p!\210\315 \210\316p!\210\317 \210\313\211\203G@\320\n!\204<\321\322\n\"\210\323\n!\210A\211\204.*\310*\324\312!\207" [marked-bufs buffer-read-only buf --dolist-tail-- require diff ibuffer-get-marked-buffers ibuffer-current-buffer t get-buffer-create "*Ibuffer Diff*" nil buffer-disable-undo erase-buffer buffer-enable-undo diff-mode buffer-live-p error "Buffer %s has been killed" ibuffer-diff-buffer-with-file-1 switch-to-buffer] 4 (#$ . 50513) nil])
#@500 Copy filenames of marked buffers into the kill ring.

The names are separated by a space.
If a buffer has no filename, it is ignored.

With no prefix arg, use the filename sans its directory of each marked file.
With a zero prefix arg, use the complete filename of each marked file.
With \[universal-argument], use the filename of each marked file relative
to `ibuffer-default-directory' if non-nil, otherwise `default-directory'.

You can then feed the file name(s) to other commands with \[yank].
(defalias 'ibuffer-copy-filename-as-kill #[(&optional arg) "\305\306 !\203\307\310!\207\311\305!\203\312\202!\313U\203 \314\202!\315\316\317\f\"\210\320\321!\210)\322\n!*\207" [arg type ibuffer-copy-filename-as-kill-result func ibuffer-marked-char zerop ibuffer-count-marked-lines message "No buffers marked; use 'm' to mark a buffer" #1="" full 4 relative name #[(buf _mark) "\306	!\211\203*\307=\203\n\202+\310=\203$\311\n\f\206 
\"\202+\312\n!\202+\313)\314Q\211\207" [ibuffer-copy-filename-as-kill-result buf name type ibuffer-default-directory default-directory buffer-file-name full relative file-relative-name file-name-nondirectory #1# " "] 5] ibuffer-map-on-mark ibuffer-redisplay t kill-new] 3 (#$ . 51277) "p"])
(defalias 'ibuffer-mark-on-buffer #[(func &optional ibuffer-mark-on-buffer-mark group) "\303\304\305#\306\307!\210\n\310=?\205\311\312	\")\207" [group count ibuffer-mark-on-buffer-mark ibuffer-map-lines #[(buf _mark) "	!\205\304\n\206\f!\210\305\207" [func buf ibuffer-mark-on-buffer-mark ibuffer-marked-char ibuffer-set-mark-1 t] 2] nil ibuffer-redisplay t 32 message "Marked %s buffers"] 4])
#@45 Mark all buffers whose name matches REGEXP.
(defalias 'ibuffer-mark-by-name-regexp #[(regexp) "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\302\303	!\"\207" [regexp buf string-match buffer-name] 4]] 2 (#$ . 52934) "sMark by name (regexp): "])
#@51 Mark all buffers whose major mode matches REGEXP.
(defalias 'ibuffer-mark-by-mode-regexp #[(regexp) "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "rq\210\303	\304\n\305\211$\")\207" [buf regexp mode-name string-match format-mode-line nil] 7]] 2 (#$ . 53188) "sMark by major mode (regexp): "])
#@50 Mark all buffers whose file name matches REGEXP.
(defalias 'ibuffer-mark-by-file-name-regexp #[(regexp) "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\304!\206rq\210\305\301!\205	;\205	)\211\205 \306\n\")\207" [buf dired-directory name regexp buffer-file-name boundp string-match] 4]] 2 (#$ . 53491) "sMark by file name (regexp): "])
#@48 Mark all buffers whose major mode equals MODE.
(defalias 'ibuffer-mark-by-mode #[(mode) "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\302\303\"	=\207" [buf mode buffer-local-value major-mode] 3]] 2 (#$ . 53845) (let* ((buf (ibuffer-current-buffer)) (default (if (and buf (buffer-live-p buf)) (symbol-name (buffer-local-value 'major-mode buf))))) (list (intern (completing-read (if default (format "Mark by major mode (default %s): " default) "Mark by major mode: ") (ibuffer-list-buffer-modes) nil t nil nil default))))])
#@28 Mark all modified buffers.
(defalias 'ibuffer-mark-modified-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\301!\207" [buf buffer-modified-p] 2]] 2 (#$ . 54378) nil])
#@57 Mark all modified buffers that have an associated file.
(defalias 'ibuffer-mark-unsaved-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\301\302\"\205\n\303!\207" [buf buffer-local-value buffer-file-name buffer-modified-p] 3]] 2 (#$ . 54568) nil])
#@56 Mark all buffers whose associated file does not exist.
(defalias 'ibuffer-mark-dissociated-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "rq\210	\203\304	!?\206&\n\305=\205&\306\303!\205&;\205&\304\307!!?)\207" [buf buffer-file-name major-mode dired-directory file-exists-p dired-mode boundp file-name-directory] 3]] 2 (#$ . 54840) nil])
#@46 Mark buffers like *Help*, *Apropos*, *Info*.
(defalias 'ibuffer-mark-help-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "rq\210	\n>)\207" [buf major-mode ibuffer-help-buffer-modes] 2]] 2 (#$ . 55209) nil])
#@51 Mark buffers whose associated file is compressed.
(defalias 'ibuffer-mark-compressed-file-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "rq\210	\205\f\303\n	\")\207" [buf buffer-file-name ibuffer-compressed-file-name-regexp string-match] 3]] 2 (#$ . 55438) nil])
#@70 Mark buffers which have not been viewed in `ibuffer-old-time' hours.
(defalias 'ibuffer-mark-old-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "rq\210	\205\305 \305	!\nZ\f\306_V*)\207" [buf buffer-display-time now then ibuffer-old-time float-time 3600] 3]] 2 (#$ . 55725) nil])
#@55 Mark all buffers whose name begins and ends with '*'.
(defalias 'ibuffer-mark-special-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\301\302\303!\"\207" [buf string-match "^\\*.+\\*$" buffer-name] 4]] 2 (#$ . 56031) nil])
#@29 Mark all read-only buffers.
(defalias 'ibuffer-mark-read-only-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\301\302\"\207" [buf buffer-local-value buffer-read-only] 3]] 2 (#$ . 56277) nil])
#@27 Mark all `dired' buffers.
(defalias 'ibuffer-mark-dired-buffers #[nil "\300\301!\207" [ibuffer-mark-on-buffer #[(buf) "\301\302\"\303=\207" [buf buffer-local-value major-mode dired-mode] 3]] 2 (#$ . 56492) nil])
#@142 View lines which match REGEXP in all marked buffers.
Optional argument NLINES says how many lines of context to display: it
defaults to one.
(defalias 'ibuffer-do-occur #[(regexp &optional nlines) "\250\203\305W\203
\305\306\307 !\203\310	!\210\311\312\313	\"\210\314\315!\210)\316\f\n#)\207" [nlines ibuffer-marked-char ibuffer-do-occur-bufs func regexp 0 zerop ibuffer-count-marked-lines ibuffer-set-mark nil #[(buf _mark) "	B\211\207" [buf ibuffer-do-occur-bufs] 2] ibuffer-map-on-mark ibuffer-redisplay t occur-1] 4 (#$ . 56712) (occur-read-primary-args)])
(provide 'ibuf-ext)
F1l3 Manager
