Current File : //usr/local/share/emacs/27.2/lisp/ibuf-ext.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@75 Remove all entries in ALIST that have a key equal to KEY.
(fn KEY ALIST)
(defalias 'ibuffer-remove-alist #[514 "\300\"\211\205 \211\301\"\262\211\262\262\204 \207" [assoc remove] 7 (#$ . 427)])
#@67 Return a copy of LIST with duplicate elements removed.
(fn LIST)
(defalias 'ibuffer-remove-duplicates #[257 "\300\211\203 \211@\235\204 \211@B\262\211A\262\202 \237\207" [nil] 5 (#$ . 637)])
#@54
(fn IBUFFER-SPLIT-LIST-FN IBUFFER-SPLIT-LIST-ELTS)
(defalias 'ibuffer-split-list #[514 "\300\211\211\203# \211@!\203 \211B\262\202 \211B\262A\266\202\202 \210\237\237D\207" [nil] 8 (#$ . 844)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\312\313&\210\300\320\302\303\321DD\322\323\324\306\325\310\311\312\313& \210\300\326\302\303\327DD\330\323\324\306\331\310\311\312\313& \207" [custom-declare-variable ibuffer-never-show-predicates funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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)) ibuffer-never-search-content-name #[0 "\300\301\302\303\304\305\306\307\310\311!\312\"\313\314%\"\211\203. \211@\315\316$B\262A\266\202\202 \237\262\207" [("Completions" "Help" "Messages" "Pp Eval Output" "CompileLog" "Info" "Buffer List" "Ibuffer" "Apropos") ("Customize Option: " "Async Shell Command\\*" "Shell Command Output\\*" "ediff ") "\\`\\*" "\\*\\'" mapcar make-byte-code 257 "\301\302\300#\207" vconcat vector [format "%s%s"] 5 "\n\n(fn X)" format "%s%s%s"] 12] "A list of regexps for buffers ignored by `ibuffer-mark-by-content-regexp'.\nBuffers whose name matches a regexp in this list, are not searched." :version "26.1" (repeat regexp) ibuffer-never-search-content-mode #[0 "\300\207" [(dired-mode)] 1] "A list of major modes ignored by `ibuffer-mark-by-content-regexp'.\nBuffers whose major mode is in this list, are not searched." (repeat (symbol :tag "Major mode"))] 12)
#@64 A list of regexps which should match buffer names to not show.
(defvar ibuffer-tmp-hide-regexps nil (#$ . 3120))
#@67 A list of regexps which should match buffer names to always show.
(defvar ibuffer-tmp-show-regexps nil (#$ . 3239))
(defvar ibuffer-auto-buffers-changed nil)
#@411 Transform alist from old to new `ibuffer-saved-filters' format.
Specifically, converts old-format alist with values of the
form (STRING (FILTER-SPECS...)) to alist with values of the
form (STRING FILTER-SPECS...), where each filter spec should be a
cons cell with a symbol in the car. Any elements in the latter
form are kept as is.
Returns (OLD-FORMAT-DETECTED . UPDATED-SAVED-FILTERS-LIST).
(fn FILTERS)
(defalias 'ibuffer-update-saved-filters-format #[257 "\211\205 \300C\301\302\303\304\305!\306\"\307\310%\311\"\242B\266\203\207" [nil make-byte-code 257 "\211A@@9\203 \207\300\301\240\210\211@A@B\207" vconcat vector [t] 3 "\n\n(fn FILTER-SPEC)" mapcar] 8 (#$ . 3404)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable ibuffer-saved-filters funcall function #[0 "\300\207" [(("programming" (or (derived-mode . prog-mode) (mode . ess-mode) (mode . compilation-mode))) ("text document" (and (derived-mode . text-mode) (not (starred-name)))) ("TeX" (or (derived-mode . tex-mode) (mode . latex-mode) (mode . context-mode) (mode . ams-tex-mode) (mode . bibtex-mode))) ("web" (or (derived-mode . sgml-mode) (derived-mode . css-mode) (mode . javascript-mode) (mode . js2-mode) (mode . scss-mode) (derived-mode . haml-mode) (mode . sass-mode))) ("gnus" (or (mode . message-mode) (mode . mail-mode) (mode . gnus-group-mode) (mode . gnus-summary-mode) (mode . gnus-article-mode))))] 1] "An alist mapping saved filter names to filter specifications.\n\nEach element should look like (\"NAME\" . FILTER-LIST), where\nFILTER-LIST has the same structure as the variable\n`ibuffer-filtering-qualifiers', which see. The filters defined\nhere are joined with an implicit logical `and' and associated\nwith NAME. The combined specification can be used by name in\nother filter specifications via the `saved' qualifier (again, see\n`ibuffer-filtering-qualifiers'). They can also be switched to by\nname (see the functions `ibuffer-switch-to-saved-filters' and\n`ibuffer-save-filters'). The variable `ibuffer-save-with-custom'\naffects how this information is saved for future sessions. This\nvariable can be set directly from lisp code." :version "26.1" :type (alist :key-type (string :tag "Filter name") :value-type (repeat :tag "Filter specification" sexp)) :set #[514 "\300\301!A\"\207" [set-default ibuffer-update-saved-filters-format] 6 "\n\n(fn SYMBOL VALUE)"] :group ibuffer] 12)
(defvar ibuffer-old-saved-filters-warning (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315&\f\316Q\207" ["Deprecated format detected for variable `ibuffer-saved-filters'.\n\nThe format has been repaired and the variable modified accordingly.\nYou can save the current value through the customize system by\neither clicking or hitting return " make-text-button "here" nil face (:weight bold :inherit button) mouse-face (:weight normal :background "gray50" :inherit button) follow-link t help-echo "Click or RET: save new value in customize" action #[257 "\301\302!\204\n \303\304!\207\302\300\"\210\303\305!\207" [ibuffer-saved-filters fboundp customize-save-variable message "Customize not available; value not saved" "Saved updated ibuffer-saved-filters."] 4 "\n\n(fn _)"] ". See below for\nan explanation and alternative ways to save the repaired value.\n\nExplanation: For the list variable `ibuffer-saved-filters',\nelements of the form (STRING (FILTER-SPECS...)) are deprecated\nand should instead have the form (STRING FILTER-SPECS...), where\neach filter spec is a cons cell with a symbol in the car. See\n`ibuffer-saved-filters' for details. The repaired value fixes\nthis format without changing the meaning of the saved filters.\n\nAlternative ways to save the repaired value:\n\n 1. Do M-x customize-variable and entering `ibuffer-saved-filters'\n when prompted.\n\n 2. Set the updated value manually by copying the\n following emacs-lisp form to your emacs init file.\n\n%s\n"] 14))
#@1558 A list specifying the filters currently acting on the buffer list.
If this list is nil, then no filters are currently in
effect. Otherwise, each element of this list specifies a single
filter, and all of the specified filters in the list are applied
successively to the buffer list.
Each filter specification can be of two types: simple or compound.
A simple filter specification has the form (SYMBOL . QUALIFIER),
where SYMBOL is a key in the alist `ibuffer-filtering-alist' that
determines the filter function to use and QUALIFIER is the data
passed to that function (along with the buffer being considered).
A compound filter specification can have one of four forms:
-- (not FILTER-SPEC)
Represents the logical complement of FILTER-SPEC, which
is any single filter specification, simple or compound.
The form (not . FILTER-SPEC) is also accepted here.
-- (and FILTER-SPECS...)
Represents the logical-and of the filters defined by one or
more filter specifications FILTER-SPECS..., where each
specification can be simple or compound. Note that and is
implicitly applied to the filters in the top-level list.
-- (or FILTER-SPECS...)
Represents the logical-or of the filters defined by one or
more filter specifications FILTER-SPECS..., where each
specification can be simple or compound.
-- (saved . "NAME")
Represents the filter saved under the string NAME
in the alist `ibuffer-saved-filters'. It is an
error to name a filter that has not been saved.
This variable is local to each ibuffer buffer.
(defvar ibuffer-filtering-qualifiers nil (#$ . 7386))
#@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 (#$ . 9004))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable ibuffer-filter-format-alist funcall function #[0 "\300\207" [nil] 1] "An alist which has special formats used when a filter is active.\nThe contents of this variable should look like:\n ((FILTER (FORMAT FORMAT ...)) (FILTER (FORMAT FORMAT ...)) ...)\n\nFor example, suppose that when you add a filter for buffers whose\nmajor mode is `emacs-lisp-mode', you only want to see the mark and the\nname of the buffer. You could accomplish that by adding:\n (mode ((mark \" \" name)))\nto this variable." :type (repeat (list :tag "Association" (symbol :tag "Filter") (list :tag "Formats" (repeat (sexp :tag "Format"))))) :group ibuffer] 8)
(defvar ibuffer-cached-filter-formats nil)
(defvar ibuffer-compiled-filter-formats nil)
#@525 An alist giving this buffer's active filter groups, or nil if none.
This alist maps filter group labels to filter specification
lists. Each element has the form ("LABEL" FILTER-SPECS...),
where FILTER-SPECS... represents one or more filter
specifications of the same form as allowed as elements of
`ibuffer-filtering-qualifiers'.
Each filter group is displayed as a separate section in the
ibuffer list, headed by LABEL and displaying only the buffers
that pass through all the filters associated with NAME in this
list.
(defvar ibuffer-filter-groups nil (#$ . 10262))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable ibuffer-show-empty-filter-groups funcall function #[0 "\300\207" [t] 1] "If non-nil, then show the names of filter groups which are empty." :type boolean :group ibuffer ibuffer-saved-filter-groups #[0 "\300\207" [nil] 1] "An alist of filtering groups to switch between.\n\nEach element is of the form (\"NAME\" . FILTER-GROUP-LIST),\nwhere NAME is a unique but arbitrary name and FILTER-GROUP-LIST\nis a list of filter groups with the same structure as\nallowed for `ibuffer-filter-groups'.\n\nSee also the functions `ibuffer-save-filter-groups' and\n`ibuffer-switch-to-saved-filter-groups' for saving and switching\nbetween sets of filter groups, and the variable\n`ibuffer-save-with-custom' that affects how this information is\nsaved." (repeat sexp)] 8)
#@54 The list of filter groups that are currently hidden.
(defvar ibuffer-hidden-filter-groups nil (#$ . 11732))
(defvar ibuffer-filter-group-kill-ring nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable ibuffer-old-time funcall function #[0 "\300\207" [72] 1] "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 #[0 "\300\207" [t] 1] "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)
#@371 Update `ibuffer-saved-filters' to its new-style format, if needed.
If this list has any elements of the old-style format, a
deprecation warning is raised, with a button allowing persistent
update. Any updated filters retain their meaning in the new
format. See `ibuffer-update-saved-filters-format' and
`ibuffer-saved-filters' for details of the old and new formats.
(defalias 'ibuffer-repair-saved-filters #[0 "\304\300!\205A \205A \305!\211A\211@\211\203> \306\307\310!\311\216 \312\313\300\314DE!\210)r q\210\315 +\316\317\320 \"\"\210)\266\210\262\207" [ibuffer-saved-filters standard-output warning-series ibuffer-old-saved-filters-warning boundp ibuffer-update-saved-filters-format t generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] pp setq quote buffer-string display-warning ibuffer format] 10 (#$ . 12527) nil])
#@38
(fn BUF ALL &optional IBUFFER-BUF)
(defalias 'ibuffer-ext-visible-p #[770 "\306\"\206= \306 \"\206 \306\n\"?\205= \204\" \306 \"?\205= \f\2041 \211\205= \211=?\205= \307
\"\206= \306\"\207" [ibuffer-tmp-show-regexps ibuffer-tmp-hide-regexps ibuffer-never-show-predicates ibuffer-maybe-show-predicates ibuffer-view-ibuffer ibuffer-filtering-qualifiers ibuffer-buf-matches-predicates ibuffer-included-in-filters-p ibuffer-always-show-predicates] 6 (#$ . 13409)])
#@103 Non-nil if Ibuffer-Auto mode is enabled.
Use the command `ibuffer-auto-mode' to change this variable.
(defvar ibuffer-auto-mode nil (#$ . 13891))
(make-variable-buffer-local 'ibuffer-auto-mode)
#@332 Toggle use of Ibuffer's auto-update facility (Ibuffer Auto mode).
If called interactively, enable Ibuffer-Auto mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'ibuffer-auto-mode #[256 "\301 \302=\203
?\202 \303!\304V\305\306!\204 \307\310!\210\203- \311\312!\210\313\314\315\"\210\2022 \316\314\315\"\210\317\320\203< \321\202= \322\"\210\323\324!\203a \301 \203Q \211\301 \232\203a \325\326\327\203\\ \330\202] \331#\266\210\332 \210\207" [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 remove-hook run-hooks ibuffer-auto-mode-hook ibuffer-auto-mode-on-hook ibuffer-auto-mode-off-hook called-interactively-p any " in current buffer" message "Ibuffer-Auto mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 14092) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar ibuffer-auto-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [ibuffer-auto-mode-map ibuffer-auto-mode-hook variable-documentation put "Hook run after entering or leaving `ibuffer-auto-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode ibuffer-auto-mode nil boundp] 6)
(defalias 'ibuffer-auto-update-changed #[0 "\301\302!\2057 \303 \211\2055 \211@\3041) r\211q\210\205$ \305\306!\205$ \307\310\311\")0\202- \210\202. \210A\266\202\202 \262\207" [ibuffer-auto-mode frame-or-buffer-changed-p ibuffer-auto-buffers-changed buffer-list (error) derived-mode-p ibuffer-mode ibuffer-update nil t] 5])
#@77 Enable or disable filtering by the major mode chosen via mouse.
(fn EVENT)
(defalias 'ibuffer-mouse-filter-by-mode #[257 "\300!\207" [ibuffer-interactive-filter-by-mode] 3 (#$ . 16039) "e"])
#@78 Enable or disable filtering by the major mode at point.
(fn EVENT-OR-POINT)
(defalias 'ibuffer-interactive-filter-by-mode #[257 "\301!\203 \302\303!!\210\202 \211b\210\304 \305\236\203\" \306\305\"\202+ \307\305\310\311\"B!\210\210\312\313\314\"\207" [ibuffer-filtering-qualifiers eventp posn-set-point event-end ibuffer-current-buffer mode ibuffer-remove-alist ibuffer-push-filter buffer-local-value major-mode ibuffer-update nil t] 7 (#$ . 16238) "d"])
#@82 Toggle the display status of the filter group chosen with the mouse.
(fn EVENT)
(defalias 'ibuffer-mouse-toggle-filter-group #[257 "\300\212\301!\210`)!\207" [ibuffer-toggle-filter-group-1 mouse-set-point] 4 (#$ . 16708) "e"])
#@61 Toggle the display status of the filter group on this line.
(defalias 'ibuffer-toggle-filter-group #[0 "\300`!\207" [ibuffer-toggle-filter-group-1] 2 (#$ . 16943) nil])
#@13
(fn POSN)
(defalias 'ibuffer-toggle-filter-group-1 #[257 "\301\302\"\211;\204
\303\304!\210\211\235\203 \305\"\202 \211B\306\307\310\"\207" [ibuffer-hidden-filter-groups get-text-property ibuffer-filter-group-name error "No filtering group name present" delete ibuffer-update nil t] 5 (#$ . 17118)])
#@70 Move point forwards by COUNT filtering groups.
(fn &optional COUNT)
(defalias 'ibuffer-forward-filter-group #[256 "\211\204 \300\262\211\301V\203) \302`\303\"\203 \304`\303\305d$b\210\304`\303\305d$b\210\306S!\210\307\301!\207" [1 0 get-text-property ibuffer-filter-group-name next-single-property-change nil ibuffer-forward-filter-group ibuffer-forward-line] 6 (#$ . 17436) "P"])
#@71 Move point backwards by COUNT filtering groups.
(fn &optional COUNT)
(defalias 'ibuffer-backward-filter-group #[256 "\211\204 \300\262\211\301V\203) \302`\303\"\203 \304`\303\305e$b\210\304`\303\305e$b\210\306S!\210`eU\2036 db\210\306\300!\210\307\301!\207" [1 0 get-text-property ibuffer-filter-group-name previous-single-property-change nil ibuffer-backward-filter-group ibuffer-forward-line] 6 (#$ . 17828) "P"])
(defalias 'ibuffer--maybe-erase-shell-cmd-output #[0 "\301\302!\303!\205 ?\205 \304!\305U?\205 r\211q\210\306 )\207" [shell-command-dont-erase-buffer get-buffer "*Shell Command Output*" buffer-live-p buffer-size 0 erase-buffer] 3])
#@81 Pipe the contents of each marked buffer to shell command COMMAND.
(fn COMMAND)
(defalias 'ibuffer-do-shell-command-pipe #[257 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\313 \314\315\316\317\320!\321\"\322\323%\324 \"\325\326!\210\262\325\326!\210\327\330\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark ibuffer--maybe-erase-shell-cmd-output make-byte-code 514 "rq\210\212\301\302!r\211q\210db\210)\303ed\300\304%\266*\305\207" vconcat vector [get-buffer-create "*Shell Command Output*" call-shell-region nil t] 9 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; Shell command executed on %s buffers"] 9 (#$ . 18493) "sPipe to shell command: "])
#@86 Replace the contents of marked buffers with output of pipe to COMMAND.
(fn COMMAND)
(defalias 'ibuffer-do-shell-command-pipe-replace #[257 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\313\314\"\205I \306\315\316\317\320\321!\322\"\323\324%\325 \"\326\327!\210\262\327\326\327!\210\330\331\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode 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" make-byte-code 514 "rq\210\212\301ed\300\302%\210*\303\207" vconcat vector [call-shell-region delete t] 8 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; Buffer contents replaced in %s buffers"] 9 (#$ . 19408) "sPipe to shell command (replace): "])
#@80 Run shell command COMMAND separately on files of marked buffers.
(fn COMMAND)
(defalias 'ibuffer-do-shell-command-file #[257 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\313 \314\315\316\317\320!\321\"\322\323%\324 \"\325\326!\210\262\325\326!\210\327\330\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark ibuffer--maybe-erase-shell-cmd-output make-byte-code 514 "rq\210\212\302 ?\205\f \303\304!\203 \305!\204/ \306\307\310 \311\312\310 G^#!\262\313\314\211\314\311%\210r\211q\210db\210)\315\316\317\300\320!#\314\314$\266*\321\207" vconcat vector [buffer-file-name buffer-modified-p get-buffer-create "*Shell Command Output*" file-exists-p make-temp-file substring buffer-name 0 10 write-region nil call-process-shell-command format "%s %s" shell-quote-argument t] 10 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; Shell command executed on %s buffers"] 9 (#$ . 20323) "sShell command on buffer's file: "])
#@138 Evaluate FORM in each of the buffers.
Does not display the buffer during evaluation.
See `ibuffer-do-view-and-eval' for that.
(fn FORM)
(defalias 'ibuffer-do-eval #[257 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314\315\316\317!\320\"\321\322%\323 \"\324\325!\210\262\324\325!\210\326\327\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark make-byte-code 514 "\302!rq\210\212\303\300!\210*\304\302!=\204 \304\207" vconcat vector [ibuffer-did-modification buffer-modified-p eval t] 7 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; evaluated in %s buffers"] 9 (#$ . 21509) (byte-code "\300\301!C\207" [read--expression "Eval in buffers (form): "] 2)])
#@141 Evaluate FORM while displaying each of the marked buffers.
To evaluate a form without viewing the buffer, see `ibuffer-do-eval'.
(fn FORM)
(defalias 'ibuffer-do-view-and-eval #[257 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314\315\316\317!\320\"\321\322%\323 \"\324\325!\210\262\324\325!\210\326\327\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark make-byte-code 514 "\302!p\303\304\305\306\307!\310\"\311$\216\312!\210\313\300!)\262\302!=\204$ \314\207" vconcat vector [ibuffer-did-modification buffer-modified-p make-byte-code 0 "\301\300!\207" vconcat vector [switch-to-buffer] 2 switch-to-buffer eval t] 10 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; evaluated in %s buffers"] 9 (#$ . 22440) (byte-code "\301\302\303\304\305%C\207" [read-expression-map read-from-minibuffer "Eval viewing in buffers (form): " nil t read-expression-history] 6)])
#@50 Rename marked buffers as with `rename-uniquely'.
(defalias 'ibuffer-do-rename-uniquely #[0 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314 \"\315\316!\210\262\316\315\316!\210\317\320\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[514 "rq\210\212\300 \210*\301\207" [rename-uniquely t] 3 "\n\n(fn BUF MARK)"] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; renamed %s buffers"] 6 (#$ . 23578) nil])
#@48 Revert marked buffers as with `revert-buffer'.
(defalias 'ibuffer-do-revert #[0 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\313\314\"\205; \306\315\316 \"\317\320!\210\262\317\320!\210\321\322\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode 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" #[514 "\301!rq\210\212\302\303\211\"\210*\303\301!=\204 \303\207" [ibuffer-did-modification buffer-modified-p revert-buffer t] 7 "\n\n(fn BUF MARK)"] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; reverted %s buffers"] 6 (#$ . 24234) nil])
#@48 Perform a `isearch-forward' in marked buffers.
(defalias 'ibuffer-do-isearch #[0 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314 \"\315\316!\210\262\315\316!\210\317\320\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[514 "\301!\302\303 !\301!=\204 \304\207" [ibuffer-did-modification buffer-modified-p multi-isearch-buffers ibuffer-get-marked-buffers t] 7 "\n\n(fn BUF MARK)"] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; searched in %s buffers"] 6 (#$ . 25005) nil])
#@55 Perform a `isearch-forward-regexp' in marked buffers.
(defalias 'ibuffer-do-isearch-regexp #[0 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314 \"\315\316!\210\262\315\316!\210\317\320\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[514 "\301!\302\303 !\301!=\204 \304\207" [ibuffer-did-modification buffer-modified-p multi-isearch-buffers-regexp ibuffer-get-marked-buffers t] 7 "\n\n(fn BUF MARK)"] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; searched regexp in %s buffers"] 6 (#$ . 25736) nil])
#@69 Perform a `replace-regexp' in marked buffers.
(fn FROM-STR TO-STR)
(defalias 'ibuffer-do-replace-regexp #[514 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314\315\316\317\"\320\"\321\322%\323 \"\324\325!\210\262\324\325!\210\326\327\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark make-byte-code 514 "\305!\306 \307\310\311\312\313!\314\"\315$\216\316!\210\212eb\210\n\317\300\320\321#\203* \322\301!\210\202 +\321\262\305!=\2048 \321\207" vconcat vector [ibuffer-case-fold-search case-fold-search ibuffer-did-modification buffer-modified-p current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer re-search-forward nil t replace-match] 10 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; replaced in %s buffers"] 11 (#$ . 26495) (byte-code "\300\301!\300\302\303Q!D\207" [read-from-minibuffer "Replace regexp: " "Replace " " with: "] 5)])
#@63 Perform a `query-replace' in marked buffers.
(fn &rest ARGS)
(defalias 'ibuffer-do-query-replace #[128 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314\315\316\317!\320\"\321\322%\323 \"\324\325!\210\262\324\325!\210\326\327\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark make-byte-code 514 "\304!\305 \306\307\310\311\312!\313\"\314$\216\315!\210\212 eb\210\316\317\300\"\210+\320\262\304!=\204. \320\207" vconcat vector [ibuffer-case-fold-search case-fold-search ibuffer-did-modification buffer-modified-p current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer apply query-replace t] 10 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; replaced in %s buffers"] 9 (#$ . 27688) (byte-code "\300\301\302\211#\207" [query-replace-read-args "Query replace" t] 4)])
#@70 Perform a `query-replace-regexp' in marked buffers.
(fn &rest ARGS)
(defalias 'ibuffer-do-query-replace-regexp #[128 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314\315\316\317!\320\"\321\322%\323 \"\324\325!\210\262\324\325!\210\326\327\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark make-byte-code 514 "\304!\305 \306\307\310\311\312!\313\"\314$\216\315!\210\212 eb\210\316\317\300\"\210+\320\262\304!=\204. \320\207" vconcat vector [ibuffer-case-fold-search case-fold-search ibuffer-did-modification buffer-modified-p current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer apply query-replace-regexp t] 10 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; replaced in %s buffers"] 9 (#$ . 28800) (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 #[0 "\302\303!\204\n \304\305!\210\306\307 !\211\204 \310\311 !C\262\312 !\210\306\313\314 \"\315\316!\210\262\315\316!\210\317\320\"\266\202\207" [ibuffer-did-modification ibuffer-marked-char derived-mode-p ibuffer-mode cl--assertion-failed (derived-mode-p 'ibuffer-mode) nil ibuffer-buffer-names-with-mark buffer-name ibuffer-current-buffer ibuffer-set-mark #[514 "rq\210\212\300 \210*\301\207" [print-buffer t] 3 "\n\n(fn BUF MARK)"] ibuffer-map-on-mark ibuffer-redisplay t message "Operation finished; printed %s buffers"] 6 (#$ . 29940) nil])
#@197 Return non-nil if BUF passes all FILTERS.
BUF is a lisp buffer object, and FILTERS is a list of filter
specifications with the same structure as
`ibuffer-filtering-qualifiers'.
(fn BUF FILTERS)
(defalias 'ibuffer-included-in-filters-p #[514 "\300\301\302\303\304\305\306!\307\"\310\311%\">?\207" [nil mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [ibuffer-included-in-filter-p] 4 "\n\n(fn FILTER)"] 10 (#$ . 30575)])
#@196 Extract operand from a unary compound FILTER specification.
FILTER should be a cons cell of either form (f . d) or (f d),
where operand d is itself a cons cell, or nil. Returns d.
(fn FILTER)
(defalias 'ibuffer-unary-operand #[257 "\211A\211\242\211:\203
\211\202 \207" [] 4 (#$ . 31017)])
#@203 Return non-nil if BUF pass FILTER.
BUF is a lisp buffer object, and FILTER is a filter
specification, with the same structure as an element of the list
`ibuffer-filtering-qualifiers'.
(fn BUF FILTER)
(defalias 'ibuffer-included-in-filter-p #[514 "\211@\300=\203 \301!\211@\300=\203 \302\301!\"\202 \303\"?\207\303\"\207" [not ibuffer-unary-operand ibuffer-included-in-filter-p ibuffer-included-in-filter-p-1] 7 (#$ . 31320)])
#@19
(fn BUF FILTER)
(defalias 'ibuffer-included-in-filter-p-1 #[514 "\211@\211\302\267\202a \303\304\305\306\307\310\311 !\312\"\313\314%A\">\202\217 \3152\217 A\211\203= \211@\316\"\2046 \317\315\320\"\210A\266\202\202$ \303\2620\202\217 \321A\"\211\204W \322\303!\210\323\324A\"\210\325A\"\262\202\217 @ \236\211@A\211@A\211@A\204\204 \322\303!\210\323\326
@\"\210
A\"\266\203\266\207\262??\207" [ibuffer-saved-filters ibuffer-filtering-alist #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (or 8 and 30 saved 68)) t mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [ibuffer-included-in-filter-p] 4 "\n\n(fn X)" no-match ibuffer-included-in-filter-p throw nil assoc ibuffer-filter-disable error "Unknown saved filter %s" ibuffer-included-in-filters-p "Undefined filter %s"] 16 (#$ . 31764)])
#@46
(fn BMARKLIST &optional NOEMPTY NODEFAULT)
(defalias 'ibuffer-generate-filter-groups #[769 "\211\203 \202 \301\302\303BC\"\304G\303\"\305\211\203_ \211@\211A\306\307\310\311\312\313!\314\"\315\316%\n\"\211G\317U\203? \211A\262\242\202F \320\321\322GD\"@I\210T\262\262 \266A\266\202\202 \210\303\305\211W\203\212 \211H \203v \211\203\201 8@BB\262\266\211T\262\202c \266\211\262\266\202\207" [ibuffer-filter-groups append "Default" nil make-vector 0 ibuffer-split-list make-byte-code 257 "\301@\300\"\207" vconcat vector [ibuffer-included-in-filters-p] 4 "\n\n(fn BUFMARK)" 2 signal wrong-number-of-arguments (hip-crowd lamers)] 16 (#$ . 32637)])
#@61 Make the current filters into a filtering group.
(fn NAME)
(defalias 'ibuffer-filters-to-filter-group #[257 "\204 \302\303!\210\211B B\304 \207" [ibuffer-filtering-qualifiers ibuffer-filter-groups error "No filters in effect" ibuffer-filter-disable] 3 (#$ . 33330) "sName for filtering group: "])
#@50 Set the current filter groups to filter by mode.
(defalias 'ibuffer-set-filter-groups-by-mode #[0 "\302\303\304\302\305\306 \"!\203 \211\202 \307\310\"\262\"\311\312\313\"\207" [ibuffer-view-ibuffer ibuffer-filter-groups mapcar #[257 "\300\301\"\302BCB\207" [format "%s" mode] 4 "\n\n(fn MODE)"] ibuffer-remove-duplicates #[257 "\300\301\"\207" [buffer-local-value major-mode] 4 "\n\n(fn BUF)"] buffer-list delq ibuffer-mode ibuffer-update nil t] 6 (#$ . 33638) nil])
#@32 Remove the first filter group.
(defalias 'ibuffer-pop-filter-group #[0 "\204 \302\303!\210\304\211A\242 \"\305\306\307\"\207" [ibuffer-filter-groups ibuffer-hidden-filter-groups error "No filter groups active" delete ibuffer-update nil t] 3 (#$ . 34121) nil])
#@40
(fn MSG &optional NODEFAULT NOERROR)
(defalias 'ibuffer-read-filter-group-name #[769 "\211\204\f \204\f \303\304!\210\305\306\307 ?#\203! \310\311\n\"\202\" \n\244\312\313$\207" [ibuffer-filter-groups ibuffer-show-empty-filter-groups ibuffer-hidden-filter-groups error "No filter groups active" completing-read ibuffer-generate-filter-groups ibuffer-current-state-list remove "Default" nil t] 9 (#$ . 34392)])
#@67 Decompose the filter group GROUP into active filters.
(fn GROUP)
(defalias 'ibuffer-decompose-filter-group #[257 "\302\"A\303\"\304\305\306\"\207" [ibuffer-filter-groups ibuffer-filtering-qualifiers assoc ibuffer-remove-alist ibuffer-update nil t] 5 (#$ . 34816) (byte-code "\300\301\302\"C\207" [ibuffer-read-filter-group-name "Decompose filter group: " t] 3)])
#@27 Remove all filter groups.
(defalias 'ibuffer-clear-filter-groups #[0 "\302\211\303\302\304\"\207" [ibuffer-filter-groups ibuffer-hidden-filter-groups nil ibuffer-update t] 4 (#$ . 35192) nil])
(defalias 'ibuffer-current-filter-groups-with-position #[0 "\212eb\210\300\211m\204* \301`\302\"\211\262\203* b\210\303`\302\"BB\262\301\302\"b\210\202 \211\237\266\202)\207" [nil next-single-property-change ibuffer-filter-group-name get-text-property] 5])
#@63 Move point to the filter group whose name is NAME.
(fn NAME)
(defalias 'ibuffer-jump-to-filter-group #[257 "\300\301 \"\211\203 \211\211Ab\262\202 \302\303\"\207" [assoc ibuffer-current-filter-groups-with-position error "No filter group with name %s"] 5 (#$ . 35657) (byte-code "\300\301!C\207" [ibuffer-read-filter-group-name "Jump to filter group: "] 2)])
#@107 Kill the filter group named NAME.
The group will be added to `ibuffer-filter-group-kill-ring'.
(fn NAME)
(defalias 'ibuffer-kill-filter-group #[257 "\211\303\232\203\n \304\305!\210\306\"\211\203' \211\307! B\310\"\311\n\"\210\202, \304\312\"\210\210\313\314\315\"\207" [ibuffer-filter-groups ibuffer-filter-group-kill-ring ibuffer-hidden-filter-groups "Default" error "Can't kill default filter group" assoc copy-tree ibuffer-remove-alist delete "No filter group with name \"%s\"" ibuffer-update nil t] 6 (#$ . 36028) (byte-code "\300\301\302\"C\207" [ibuffer-read-filter-group-name "Kill filter group: " t] 3)])
#@105 Kill the filter group at point.
See also `ibuffer-kill-filter-group'.
(fn &optional ARG INTERACTIVE-P)
(defalias 'ibuffer-kill-line #[512 "\212\300\301!\210\302`\303\")\211\203 \211\304!\262\202# \203 \305\202 \306\307\"\207" [ibuffer-forward-line 0 get-text-property ibuffer-filter-group-name ibuffer-kill-filter-group call-interactively funcall kill-line] 6 (#$ . 36660) "P\np"])
#@23
(fn NEWGROUP GROUP)
(defalias 'ibuffer-insert-filter-group-before #[514 "\301\302\303\"\304\203% @\232\203 \305\262\301\262\202 \211T\262A\262\202 \262\2044 C\244\211\202X \211\304U\203B B\211\202X \211\233\211\211@AB\241\266\211\211\240\262\262\207" [ibuffer-filter-groups nil mapcar car 0 t] 9 (#$ . 37056)])
#@58 Yank the last killed filter group before group at point.
(defalias 'ibuffer-yank #[0 "\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 (#$ . 37403) nil])
#@71 Yank the last killed filter group before group named NAME.
(fn NAME)
(defalias 'ibuffer-yank-filter-group #[257 "\204 \301\302!\210\212\303\304!\210\305\211A\242\"\210)\306\307\310\"\207" [ibuffer-filter-group-kill-ring error "The Ibuffer filter group kill-ring is empty" ibuffer-forward-line 0 ibuffer-insert-filter-group-before ibuffer-update nil t] 4 (#$ . 37696) (byte-code "\300\301!C\207" [ibuffer-read-filter-group-name "Yank filter group before group: "] 2)])
#@176 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.
(fn NAME GROUPS)
(defalias 'ibuffer-save-filter-groups #[514 "\301\"\211\203 \211\211\241\266\202 BB\210\302 \207" [ibuffer-saved-filter-groups assoc ibuffer-maybe-save-stuff] 6 (#$ . 38177) (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)])
#@103 Delete saved filter groups with NAME.
They are removed from `ibuffer-saved-filter-groups'.
(fn NAME)
(defalias 'ibuffer-delete-saved-filter-groups #[257 "\301\"\302 \210\303\304\305\"\207" [ibuffer-saved-filter-groups ibuffer-remove-alist ibuffer-maybe-save-stuff ibuffer-update nil t] 4 (#$ . 38708) (byte-code "\204\n \301\302!\202 \303\304\305\306$C\207" [ibuffer-saved-filter-groups error "No saved filter groups" completing-read "Delete saved filter group: " nil t] 5)])
#@126 Set this buffer's filter groups to saved version with NAME.
The value from `ibuffer-saved-filter-groups' is used.
(fn NAME)
(defalias 'ibuffer-switch-to-saved-filter-groups #[257 "\303\"A\304\305\304\306\"\207" [ibuffer-saved-filter-groups ibuffer-filter-groups ibuffer-hidden-filter-groups assoc nil ibuffer-update t] 4 (#$ . 39198) (byte-code "\204\n \301\302!\202 A\204 @@\202 \303\304\305\306$C\207" [ibuffer-saved-filter-groups error "No saved filters" completing-read "Switch to saved filter group: " nil t] 5)])
#@221 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.
(fn &optional DELETE-FILTER-GROUPS)
(defalias 'ibuffer-filter-disable #[256 "\302\211\203 \302\303 \304\302\305\"\210\211\205 \306\307!!\207" [ibuffer-filtering-qualifiers ibuffer-filter-groups nil ibuffer-current-buffer ibuffer-update t ibuffer-jump-to-buffer buffer-name] 5 (#$ . 39736) nil])
#@39 Remove the top filter in this buffer.
(defalias 'ibuffer-pop-filter #[0 "\204 \301\302!\210\210A\303 \304\305\306\"\210\211\205 \307\310!!\207" [ibuffer-filtering-qualifiers error "No filters in effect" ibuffer-current-buffer ibuffer-update nil t ibuffer-jump-to-buffer buffer-name] 4 (#$ . 40226) nil])
#@189 Add FILTER-SPECIFICATION to `ibuffer-filtering-qualifiers'.
If FILTER-SPECIFICATION is already in the list then return nil. Otherwise,
return the updated list.
(fn FILTER-SPECIFICATION)
(defalias 'ibuffer-push-filter #[257 "\211\235?\205\f \211B\211\207" [ibuffer-filtering-qualifiers] 3 (#$ . 40544)])
#@278 Separate this buffer's top compound filter (AND, OR, NOT, or SAVED).
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 separate filters, like [name: foo] and [mode: bar-mode].
(defalias 'ibuffer-decompose-filter #[0 "\204 \302\303!\210\211@AA@@\211\304\267\202@ \244\202F \305 \"\211\204- \306 \210\302\307\"\210\310A\"\262\202F \311@!B\202F \302\312@@\"\262\266\313\314\315\"\207" [ibuffer-filtering-qualifiers ibuffer-saved-filters error "No filters in effect" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (and 23 or 23 saved 29 not 55)) assoc ibuffer-filter-disable "Unknown saved filter %s" append ibuffer-unary-operand "Filter type %s is not compound" ibuffer-update nil t] 8 (#$ . 40859) nil])
#@59 Exchange the top two filters on the stack in this buffer.
(defalias 'ibuffer-exchange-filters #[0 "\211G\301W\203\f \302\303!\210\211\211@\211A@A\240\210\262\240\266\304\305\306\"\207" [ibuffer-filtering-qualifiers 2 error "Need two filters to exchange" ibuffer-update nil t] 8 (#$ . 41724) nil])
#@59 Negate the sense of the top filter in the current buffer.
(defalias 'ibuffer-negate-filter #[0 "\204 \301\302!\210\211A\242\211@\303=\203 \211A\202 \303BB\210\304\305\306\"\207" [ibuffer-filtering-qualifiers error "No filters in effect" not ibuffer-update nil t] 3 (#$ . 42034) nil])
#@21
(fn OP DECOMPOSE)
(defalias 'ibuffer--or-and-filter #[514 "\211\203 @@=\203 \301 \210\202X \302\303\304!\226\"\210\202X G\305W\203, \302\306\304!\226\"\210\211A\242\211A\242@=\203A \202D D@=\203P A\202R C\244B\266\307\310\311\"\207" [ibuffer-filtering-qualifiers ibuffer-decompose-filter error "Top filter is not an %s" symbol-name 2 "Need two filters to %s" ibuffer-update nil t] 7 (#$ . 42333)])
#@180 Replace the top two filters in this buffer with their logical OR.
If optional argument DECOMPOSE is non-nil, instead break the top OR
filter into parts.
(fn &optional DECOMPOSE)
(defalias 'ibuffer-or-filter #[256 "\300\301\"\207" [ibuffer--or-and-filter or] 4 (#$ . 42763) "P"])
#@182 Replace the top two filters in this buffer with their logical AND.
If optional argument DECOMPOSE is non-nil, instead break the top AND
filter into parts.
(fn &optional DECOMPOSE)
(defalias 'ibuffer-and-filter #[256 "\300\301\"\207" [ibuffer--or-and-filter and] 4 (#$ . 43051) "P"])
(defalias 'ibuffer-maybe-save-stuff #[0 "\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])
#@152 Save FILTERS in this buffer with name NAME in `ibuffer-saved-filters'.
Interactively, prompt for NAME, and use the current filters.
(fn NAME FILTERS)
(defalias 'ibuffer-save-filters #[514 "\301\"\211\203 \211\211\241\266\202 BB\210\302 \207" [ibuffer-saved-filters assoc ibuffer-maybe-save-stuff] 6 (#$ . 43622) (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)])
#@73 Delete saved filters with NAME from `ibuffer-saved-filters'.
(fn NAME)
(defalias 'ibuffer-delete-saved-filters #[257 "\301\"\302 \210\303\304\305\"\207" [ibuffer-saved-filters ibuffer-remove-alist ibuffer-maybe-save-stuff ibuffer-update nil t] 4 (#$ . 44124) (byte-code "\204\n \301\302!\202 \303\304\305\306$C\207" [ibuffer-saved-filters error "No saved filters" completing-read "Delete saved filters: " nil t] 5)])
#@85 Add saved filters from `ibuffer-saved-filters' to this buffer's filters.
(fn NAME)
(defalias 'ibuffer-add-saved-filters #[257 "\301BB\302\303\304\"\207" [ibuffer-filtering-qualifiers saved ibuffer-update nil t] 4 (#$ . 44554) (byte-code "\204\n \301\302!\202 \303\304\305\306$C\207" [ibuffer-saved-filters error "No saved filters" completing-read "Add saved filters: " nil t] 5)])
#@89 Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'.
(fn NAME)
(defalias 'ibuffer-switch-to-saved-filters #[257 "\301BC\302\303\304\"\207" [ibuffer-filtering-qualifiers saved ibuffer-update nil t] 4 (#$ . 44948) (byte-code "\204\n \301\302!\202 \303\304\305\306$C\207" [ibuffer-saved-filters error "No saved filters" completing-read "Switch to saved filters: " nil t] 5)])
#@15
(fn FILTER)
(defalias 'ibuffer-format-filter-group-data #[257 "\211\301\232\203 \302\207\303\304\305\236A\306#P\207" [ibuffer-filter-groups "Default" "" "Filter:" mapconcat ibuffer-format-qualifier " "] 6 (#$ . 45357)])
#@18
(fn QUALIFIER)
(defalias 'ibuffer-format-qualifier #[257 "\211\242\300=\203 \301\302\303!!\304Q\207\302!\207" [not " [NOT" ibuffer-format-qualifier-1 ibuffer-unary-operand "]"] 5 (#$ . 45588)])
#@18
(fn QUALIFIER)
(defalias 'ibuffer-format-qualifier-1 #[257 "\211@\211\301\267\202( \302A\303Q\202C \304\305\306A\307#\303Q\202C \310\305\306A\307#\303Q\202C @\236\2045 \311\312\"\210\313A@\314\315\316A\"R\262\207" [ibuffer-filtering-alist #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (saved 8 or 16 and 28)) " [filter: " "]" " [OR" mapconcat ibuffer-format-qualifier "" " [AND" error "Ibuffer: bad qualifier %s" " [" ": " format "%s]"] 9 (#$ . 45793)])
#@150 Create a completion table of buffer modes currently in use.
If INCLUDE-PARENTS is non-nil then include parent modes.
(fn &optional INCLUDE-PARENTS)
(defalias 'ibuffer-list-buffer-modes #[256 "\300\301 \211\2030 \211@\302\303\"\211\203( \211>\204( \211B\262\205# \211\304N\262\202
\210A\266\202\202 \210\305\306\"\207" [nil buffer-list buffer-local-value major-mode derived-mode-parent mapcar symbol-name] 7 (#$ . 46306)])
#@218 Limit current view to buffers with major mode(s) specified by QUALIFIER.
QUALIFIER is the mode name as a symbol or a list of symbols.
Called interactively, accept a comma separated list of mode names.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-mode #[257 "\300B\211<\204
C\262\301\302!\303\"\262\300@B\262\304\305\306#\262A\203/ \307\310\311\"B\262\312!\204< \313\314\"\202E \313\315\"\210\316\317\320\"\207" [mode sort delete-dups string-lessp mapconcat #[257 "\2119\203 \300!\207\207" [symbol-name] 3 "\n\n(fn M)"] "," or mapcar #[257 "\300B\207" [mode] 3 "\n\n(fn M)"] ibuffer-push-filter message "Filter by major mode already applied: %s" "Filter by major mode added: %s" ibuffer-update nil t] 7 (#$ . 46746) (byte-code "\301 \211\205 \302!\205 \303\304\305\"!\306\307\310\203 \311\312\"\202! \313\314\315\316\211 &\"\266\202C\207" [obarray ibuffer-current-buffer buffer-live-p symbol-name buffer-local-value major-mode mapcar intern completing-read-multiple format "Filter by major mode (default %s): " "Filter by major mode: " #[257 "\300\3019\203
\302!\202 \"\207" [string-match "-mode\\'" symbol-name] 5 "\n\n(fn E)"] t nil] 12)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist mode "major mode" #[514 "\3001\f \211\301\302\"=0\207\210\303 \210\304\207" [(error) buffer-local-value major-mode ibuffer-pop-filter nil] 6 "\n\n(fn BUF QUALIFIER)"]] 3)
#@245 Limit current view to buffers with major mode(s) specified by QUALIFIER.
QUALIFIER is the mode name as a symbol or a list of symbols.
Called interactively, accept a comma separated list of mode names
currently used by buffers.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-used-mode #[257 "\300B\211<\204
C\262\301\302!\303\"\262\300@B\262\304\305\306#\262A\203/ \307\310\311\"B\262\312!\204< \313\314\"\202E \313\315\"\210\316\317\320\"\207" [used-mode sort delete-dups string-lessp mapconcat #[257 "\2119\203 \300!\207\207" [symbol-name] 3 "\n\n(fn M)"] "," or mapcar #[257 "\300B\207" [used-mode] 3 "\n\n(fn M)"] ibuffer-push-filter message "Filter by major mode in use already applied: %s" "Filter by major mode in use added: %s" ibuffer-update nil t] 7 (#$ . 48166) (byte-code "\300 \211\205 \301!\205 \302\303\304\"!\305\306\307\203 \310\311\"\202! \312\313 \314\315\314\211 &\"\266\202C\207" [ibuffer-current-buffer buffer-live-p symbol-name buffer-local-value major-mode mapcar intern completing-read-multiple format "Filter by major mode (default %s): " "Filter by major mode: " ibuffer-list-buffer-modes nil t] 12)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist used-mode "major mode in use" #[514 "\3001\f \211\301\302\"=0\207\210\303 \210\304\207" [(error) buffer-local-value major-mode ibuffer-pop-filter nil] 6 "\n\n(fn BUF QUALIFIER)"]] 3)
#@311 Limit current view to buffers with major mode(s) specified by QUALIFIER.
QUALIFIER is the mode name as a symbol or a list of symbols.
Restrict the view to buffers whose major mode derivates
from modes specified by QUALIFIER.
Called interactively, accept a comma separated list of mode names.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-derived-mode #[257 "\300B\211<\204
C\262\301\302!\303\"\262\300@B\262\304\305\306#\262A\203/ \307\310\311\"B\262\312!\204< \313\314\"\202E \313\315\"\210\316\317\320\"\207" [derived-mode sort delete-dups string-lessp mapconcat #[257 "\2119\203 \300!\207\207" [symbol-name] 3 "\n\n(fn M)"] "," or mapcar #[257 "\300B\207" [derived-mode] 3 "\n\n(fn M)"] ibuffer-push-filter message "Filter by derived mode already applied: %s" "Filter by derived mode added: %s" ibuffer-update nil t] 7 (#$ . 49578) (byte-code "\300\301\302\303\304\305!\306\305$\"C\207" [mapcar intern completing-read-multiple "Filter by derived mode: " ibuffer-list-buffer-modes t nil] 7)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist derived-mode "derived mode" #[514 "\3001 rq\210\301!)0\207\210\302 \210\303\207" [(error) derived-mode-p ibuffer-pop-filter nil] 4 "\n\n(fn BUF QUALIFIER)"]] 3)
#@77 Limit current view to buffers with name matching QUALIFIER.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-name #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [name ibuffer-push-filter message "Filter by buffer name already applied: %s" "Filter by buffer name added: %s" ibuffer-update nil t] 6 (#$ . 50829) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by name (regexp): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist name "buffer name" #[514 "\3001\f \301\302!\"0\207\210\303 \210\304\207" [(error) string-match buffer-name ibuffer-pop-filter nil] 6 "\n\n(fn BUF QUALIFIER)"]] 3)
#@66 Limit current view to buffers running a process.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-process #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [process ibuffer-push-filter message "Filter by process already applied: %s" "Filter by process added: %s" ibuffer-update nil t] 6 (#$ . 51486) (list nil)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist process "process" #[514 "\3001 \301!0\207\210\302 \210\303\207" [(error) get-buffer-process ibuffer-pop-filter nil] 4 "\n\n(fn BUF QUALIFIER)"]] 3)
#@148 Limit current view to buffers with name beginning and ending
with *, along with an optional suffix of the form digits or
<digits>.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-starred-name #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [starred-name ibuffer-push-filter message "Filter by starred buffer name already applied: %s" "Filter by starred buffer name added: %s" ibuffer-update nil t] 6 (#$ . 52045) (list nil)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist starred-name "starred buffer name" #[514 "\3001\f \301\302\303!\"0\207\210\304 \210\305\207" [(error) string-match "\\`\\*[^*]+\\*\\(?:<[[:digit:]]+>\\)?\\'" buffer-name ibuffer-pop-filter nil] 6 "\n\n(fn BUF QUALIFIER)"]] 3)
#@180 Limit current view to buffers with full file name matching QUALIFIER.
For example, for a buffer associated with file '/a/b/c.d', this
matches against '/a/b/c.d'.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-filename #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [filename ibuffer-push-filter message "Filter by full file name already applied: %s" "Filter by full file name added: %s" ibuffer-update nil t] 6 (#$ . 52797) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by full file name (regexp): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist filename "full file name" #[514 "\3001 rq\210\301 )\211\205 \211\302\"\262\2620\207\210\303 \210\304\207" [(error) ibuffer-buffer-file-name string-match ibuffer-pop-filter nil] 7 "\n\n(fn BUF QUALIFIER)"]] 3)
#@174 Limit current view to buffers with file basename matching QUALIFIER.
For example, for a buffer associated with file `/a/b/c.d', this
matches against `c.d'.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-basename #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [basename ibuffer-push-filter message "Filter by file basename already applied: %s" "Filter by file basename added: %s" ibuffer-update nil t] 6 (#$ . 53633) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by file name, without directory part (regex): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist basename "file basename" #[514 "\3001 rq\210\301 )\211\205 \211\302\303!\"\262\2620\207\210\304 \210\305\207" [(error) ibuffer-buffer-file-name string-match file-name-nondirectory ibuffer-pop-filter nil] 8 "\n\n(fn BUF QUALIFIER)"]] 3)
#@246 Limit current view to buffers with filename extension matching QUALIFIER.
The separator character (typically `.') is not part of the
pattern. For example, for a buffer associated with file
`/a/b/c.d', this matches against `d'.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-file-extension #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [file-extension ibuffer-push-filter message "Filter by filename extension already applied: %s" "Filter by filename extension added: %s" ibuffer-update nil t] 6 (#$ . 54506) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by filename extension without separator (regex): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist file-extension "filename extension" #[514 "\3001 rq\210\301 )\211\205 \211\302\303!\206 \304\"\262\2620\207\210\305 \210\306\207" [(error) ibuffer-buffer-file-name string-match file-name-extension "" ibuffer-pop-filter nil] 8 "\n\n(fn BUF QUALIFIER)"]] 3)
#@270 Limit current view to buffers with directory matching QUALIFIER.
For a buffer associated with file '/a/b/c.d', this matches
against '/a/b'. For a buffer not associated with a file, this
matches against the value of `default-directory' in that buffer.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-directory #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [directory ibuffer-push-filter message "Filter by directory name already applied: %s" "Filter by directory name added: %s" ibuffer-update nil t] 6 (#$ . 55497) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by directory name (regex): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist directory "directory name" #[514 "\3011. rq\210\302 )\211\203\" \211\303!\211\205 \304\"\262\262\202* \205* \304\"\2620\207\210\305 \210\306\207" [default-directory (error) ibuffer-buffer-file-name file-name-directory string-match ibuffer-pop-filter nil] 8 "\n\n(fn BUF QUALIFIER)"]] 3)
#@81 Limit current view to buffers with size greater than QUALIFIER.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-size-gt #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [size-gt ibuffer-push-filter message "Filter by size greater than already applied: %s" "Filter by size greater than added: %s" ibuffer-update nil t] 6 (#$ . 56505) (byte-code "\300\301\302!!C\207" [string-to-number read-from-minibuffer "Filter by size greater than: "] 3)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist size-gt "size greater than" #[514 "\3001 rq\210\301 )V0\207\210\302 \210\303\207" [(error) buffer-size ibuffer-pop-filter nil] 4 "\n\n(fn BUF QUALIFIER)"]] 3)
#@78 Limit current view to buffers with size less than QUALIFIER.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-size-lt #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [size-lt ibuffer-push-filter message "Filter by size less than already applied: %s" "Filter by size less than added: %s" ibuffer-update nil t] 6 (#$ . 57207) (byte-code "\300\301\302!!C\207" [string-to-number read-from-minibuffer "Filter by size less than: "] 3)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist size-lt "size less than" #[514 "\3001 rq\210\301 )W0\207\210\302 \210\303\207" [(error) buffer-size ibuffer-pop-filter nil] 4 "\n\n(fn BUF QUALIFIER)"]] 3)
#@76 Limit current view to buffers that are marked as modified.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-modified #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [modified ibuffer-push-filter message "Filter by modified already applied: %s" "Filter by modified added: %s" ibuffer-update nil t] 6 (#$ . 57894) (list nil)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist modified "modified" #[514 "\3001 \301!0\207\210\302 \210\303\207" [(error) buffer-modified-p ibuffer-pop-filter nil] 4 "\n\n(fn BUF QUALIFIER)"]] 3)
#@73 Limit current view to buffers that are visiting a file.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-visiting-file #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [visiting-file ibuffer-push-filter message "Filter by visiting a file already applied: %s" "Filter by visiting a file added: %s" ibuffer-update nil t] 6 (#$ . 58467) (list nil)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist visiting-file "visiting a file" #[514 "\3001
rq\210\301 )0\207\210\302 \210\303\207" [(error) buffer-file-name ibuffer-pop-filter nil] 3 "\n\n(fn BUF QUALIFIER)"]] 3)
#@79 Limit current view to buffers whose contents match QUALIFIER.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-content #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [content ibuffer-push-filter message "Filter by content already applied: %s" "Filter by content added: %s" ibuffer-update nil t] 6 (#$ . 59079) (byte-code "\300\301!C\207" [read-from-minibuffer "Filter by content (regexp): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist content "content" #[514 "\3001 rq\210\212eb\210\301\302\303#*0\207\210\304 \210\302\207" [(error) re-search-forward nil t ibuffer-pop-filter] 6 "\n\n(fn BUF QUALIFIER)"]] 3)
#@84 Limit current view to buffers for which QUALIFIER returns non-nil.
(fn QUALIFIER)
(defalias 'ibuffer-filter-by-predicate #[257 "\300B\301!\204 \302\303\"\202 \302\304\"\210\305\306\307\"\207" [predicate ibuffer-push-filter message "Filter by predicate already applied: %s" "Filter by predicate added: %s" ibuffer-update nil t] 6 (#$ . 59751) (byte-code "\300\301!C\207" [read-minibuffer "Filter by predicate (form): "] 2)])
(byte-code "\301\302\303EB\301\207" [ibuffer-filtering-alist predicate "predicate" #[514 "\3001 rq\210\301!)0\207\210\302 \210\303\304\"\207" [(error) eval ibuffer-pop-filter error "Wrong filter predicate: %S"] 5 "\n\n(fn BUF QUALIFIER)"]] 3)
#@246 Select and apply filter chosen by completion against available filters.
Indicates corresponding key sequences in echo area after filtering.
The completion matches against the filter description text of
each filter in `ibuffer-filtering-alist'.
(defalias 'ibuffer-filter-chosen-by-completion #[0 "\302\303\"\304\305\306\307$\310\"A\311\312\313!P!\314!\210\315\316\317\320\321 \306\307$\322##\207" [ibuffer-filtering-alist ibuffer-mode-map mapcar #[257 "\211A@@B\207" [] 3 "\n\n(fn X)"] completing-read "Filter by: " nil t assoc intern "ibuffer-filter-by-" symbol-name call-interactively message "%s can be run with key sequences: %s" mapconcat key-description where-is-internal "or "] 14 (#$ . 60441) nil])
#@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 #[0 "\302\303\"\304>\204 \304B\262\305\306\"\262 >\243\242\206 \211@\211\307\310\"\266\311\312!\207" [ibuffer-sorting-functions-alist ibuffer-sorting-mode mapcar car recency sort string-lessp message "Sorting by %s" ibuffer-redisplay t] 5 (#$ . 61165) nil])
#@52 Toggle whether or not sorting is in reverse order.
(defalias 'ibuffer-invert-sorting #[0 "?\301\302\203
\303\202 \304\"\210\305\306!\207" [ibuffer-sorting-reversep message "Sorting order %s" "reversed" "normal" ibuffer-redisplay t] 3 (#$ . 61704) nil])
#@61 Sort the buffers by major modes.
Ordering is lexicographic.
(defalias 'ibuffer-do-sort-by-major-mode #[0 "\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 (#$ . 61968) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist major-mode "major mode" #[514 "\300\301\302@\"!\227\300\301\302@\"!\227\231\207" [symbol-name buffer-local-value major-mode] 7 "\n\n(fn A B)"]] 3)
#@65 Sort the buffers by their mode name.
Ordering is lexicographic.
(defalias 'ibuffer-do-sort-by-mode-name #[0 "\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 (#$ . 62475) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist mode-name "major mode name" #[514 "r@q\210\301!)\227r@q\210\301!)\227\231\207" [mode-name format-mode-line] 5 "\n\n(fn A B)"]] 3)
#@61 Sort the buffers by their names.
Ordering is lexicographic.
(defalias 'ibuffer-do-sort-by-alphabetic #[0 "\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 (#$ . 62969) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist alphabetic "buffer name" #[514 "\300@!\300@!\231\207" [buffer-name] 5 "\n\n(fn A B)"]] 3)
#@33 Sort the buffers by their size.
(defalias 'ibuffer-do-sort-by-size #[0 "\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 (#$ . 63419) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist size "size" #[514 "r@q\210\300 )r@q\210\300 )W\207" [buffer-size] 4 "\n\n(fn A B)"]] 3)
#@51 Sort the buffers by their file name/process name.
(defalias 'ibuffer-do-sort-by-filename/process #[0 "\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 (#$ . 63827) nil])
(byte-code "\301\302\303EB\301\207" [ibuffer-sorting-functions-alist filename/process "file name" #[514 "\300@!\206 \301@!\302!\205 \303!\262\300@!\206, \301@!\302!\205* \303!\262\231\207" [buffer-file-name get-buffer-process processp process-name] 6 "\n\n(fn A B)"]] 3)
#@43 Emulate `bs-show' from the bs.el package.
(defalias 'ibuffer-bs-show #[0 "\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 (#$ . 64401) nil])
#@54 Emulate `bs-toggle-show-all' from the bs.el package.
(defalias 'ibuffer-bs-toggle-all #[0 "\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 (#$ . 64661) nil])
#@150 Add REGEXP to `ibuffer-tmp-hide-regexps'.
This means that buffers whose name matches REGEXP will not be shown
for this Ibuffer session.
(fn REGEXP)
(defalias 'ibuffer-add-to-tmp-hide #[257 "\211B\211\207" [ibuffer-tmp-hide-regexps] 3 (#$ . 64938) (byte-code "\300\301\302\303\304\305!!!\"C\207" [read-from-minibuffer "Never show buffers matching: " regexp-quote buffer-name ibuffer-current-buffer t] 6)])
#@153 Add REGEXP to `ibuffer-tmp-show-regexps'.
This means that buffers whose name matches REGEXP will always be shown
for this Ibuffer session.
(fn REGEXP)
(defalias 'ibuffer-add-to-tmp-show #[257 "\211B\211\207" [ibuffer-tmp-show-regexps] 3 (#$ . 65353) (byte-code "\300\301\302\303\304\305!!!\"C\207" [read-from-minibuffer "Always show buffers matching: " regexp-quote buffer-name ibuffer-current-buffer t] 6)])
#@343 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.
(fn &optional COUNT MARK DIRECTION)
(defalias 'ibuffer-forward-next-marked #[768 "\204 \301\262\204 \262\211\204 \301\262\302\303!\210`\302!\210`U\2047 \304\305 \306\"A@=\2047 \302!\210\202 `U\205N \304\305 \306\"A@=?\205N \307\310\"\207" [ibuffer-marked-char 1 ibuffer-forward-line 0 get-text-property line-beginning-position ibuffer-properties error "No buffers with mark %c"] 7 (#$ . 65772) "P"])
#@203 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'.
(fn &optional COUNT MARK)
(defalias 'ibuffer-backwards-next-marked #[512 "\300\301#\207" [ibuffer-forward-next-marked -1] 6 (#$ . 66502) "P"])
#@41 Hide all of the currently marked lines.
(defalias 'ibuffer-do-kill-lines #[0 "\301 \302U\203 \303\304!\207\305\306\"\307\310!\210\262\303\311\"\207" [ibuffer-marked-char ibuffer-count-marked-lines 0 message "No buffers marked; use `m' to mark a buffer" #[514 "\300\207" [kill] 3 "\n\n(fn BUF MARK)"] ibuffer-map-on-mark ibuffer-redisplay t "Killed %s lines"] 4 (#$ . 66829) nil])
#@410 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.
(fn NAME)
(defalias 'ibuffer-jump-to-buffer #[257 "\211\301\230?\205x \302C\303\304\305\306\307\310\"\311\"\312\313%\314\302#\210\211\242\204g \203g \3152f \211\205c \211@\316!\210\317 \210\303\304\305\306\307\310 \"\320\"\312\313%\314#\210\242\203Y \321\315\302\"\210\202\\ \317 \210A\266\202\202+ \2620\210\211\242\204s \322\323\"\202v \211\242b\262\207" [ibuffer-hidden-filter-groups "" nil ibuffer-map-lines make-byte-code 514 "\302!\300\230\205
\301`\240\210\303\207" vconcat vector [buffer-name nil] 4 "\n\n(fn BUF MARKS)" t found ibuffer-jump-to-filter-group ibuffer-toggle-filter-group [buffer-name nil] throw error "No buffer with name %s"] 12 (#$ . 67221) (byte-code " \203 \211?\262\211\203% \302\303\304 \"\211\204 \305\306!\210\307\310\311\312$\262\202* \313\310\311\312#\262C\207" [ibuffer-jump-offer-only-visible-buffers current-prefix-arg mapcar #[257 "\300@!\207" [buffer-name] 3 "\n\n(fn X)"] ibuffer-current-state-list error "No buffers!" completing-read "Jump to buffer: " nil t read-buffer] 7)])
#@15
(fn BUFFER)
(defalias 'ibuffer-diff-buffer-with-file-1 #[257 "\305\306\"\307\310!\205\217 \311\216rq\210\312\313\211\313\314%\210)\315!\315!\316!\316!\317\320 \321<\2034 \2026 C \204@ \205P \322\323 !\322\323\324\325\326!\"!F\323 \206X !\323 \206a !D#B\327#\330\211\331\261\210\332\333 \313p\313\f&!\210\331c\210)\266)\334\335!\210\336!\205\217 \337!\207" [diff-switches diff-command inhibit-read-only shell-file-name shell-command-switch buffer-local-value buffer-file-name make-temp-file "buffer-content-" #[0 "\300\207" [nil] 1] write-region nil 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] 21 (#$ . 68669)])
#@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 #[0 "\301\302!\210\303 \211\204 \304\305!C\262r\306\307!q\210\310\311p!\210\312 \210\313p!\210\314 \210\211\211\203C \211@\315!\2048 \316\317\"\210\320!\210A\266\202\202' \210\305)\210\321\307!\207" [buffer-read-only 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] 6 (#$ . 69478) nil])
#@534 Copy filenames of marked (or next ARG) 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].
(fn &optional ARG)
(defalias 'ibuffer-copy-filename-as-kill #[256 "\211\250\203 \211\301U\204 \302!\202 \303 \206 \304 C\305\306\307\310\311\312!\313\"\314\315%\"\316\317\320\321\"\322#\211\321\230?\205N \323=\203F \324\325\"\210\202J \326!\210\327\330\"\207" [last-command 0 ibuffer--near-buffers ibuffer-get-marked-buffers ibuffer-current-buffer mapcar make-byte-code 257 "r\211q\210\303 )\211\204 \304\2021 \300\250\203 \300\305U\203 \211\2021 \300:\203. \306 \206* \n\"\2021 \307!\207" vconcat vector [ibuffer-default-directory default-directory ibuffer-buffer-file-name #1="" 0 file-relative-name file-name-nondirectory] 5 "\n\n(fn BUF)" mapconcat identity delete #1# " " kill-region kill-append nil kill-new message "%s"] 9 (#$ . 70217) "P"])
#@194 Copy buffer names of marked (or next ARG) buffers into the kill ring.
The names are separated by a space.
You can then feed the file name(s) to other commands with \[yank].
(fn &optional ARG)
(defalias 'ibuffer-copy-buffername-as-kill #[256 "\211\250\203 \211\301U\204 \302!\202 \303 \206 \304 C\305\306\307#\211\310\230?\205; \311=\2033 \312\313\"\210\2027 \314!\210\315\316\"\207" [last-command 0 ibuffer--near-buffers ibuffer-get-marked-buffers ibuffer-current-buffer mapconcat buffer-name " " "" kill-region kill-append nil kill-new message "%s"] 6 (#$ . 71505) "P"])
#@57
(fn FUNC &optional IBUFFER-MARK-ON-BUFFER-MARK GROUP)
(defalias 'ibuffer-mark-on-buffer #[769 "\300\301\302\303\304\305\"\306\"\307\310%\311#\312\313!\210\314=?\205\" \315\316\"\207" [ibuffer-map-lines make-byte-code 514 "\300!\205 \303\301\206\f \n!\210\304\207" vconcat vector [ibuffer-marked-char ibuffer-set-mark-1 t] 4 "\n\n(fn BUF MARK)" nil ibuffer-redisplay t 32 message "Marked %s buffers"] 11 (#$ . 72094)])
#@58 Mark all buffers whose name matches REGEXP.
(fn REGEXP)
(defalias 'ibuffer-mark-by-name-regexp #[257 "\300\301\302\303\304\305!\306\"\307\310%!\207" [ibuffer-mark-on-buffer make-byte-code 257 "\301\300\302!\"\207" vconcat vector [string-match buffer-name] 5 "\n\n(fn BUF)"] 8 (#$ . 72529) "sMark by name (regexp): "])
#@107 Return non-nil if BUF is locked.
When BUF nil, default to the buffer at current line.
(fn &optional BUF)
(defalias 'ibuffer-locked-buffer-p #[256 "\211\206 \301 \211\205 r\211q\210\302\300!\205 )\207" [emacs-lock-mode ibuffer-current-buffer boundp] 4 (#$ . 72858)])
#@26 Mark all locked buffers.
(defalias 'ibuffer-mark-by-locked #[0 "\300\301!\205 \302\303!\207" [featurep emacs-lock ibuffer-mark-on-buffer #[257 "\300!\207" [ibuffer-locked-buffer-p] 3 "\n\n(fn BUF)"]] 2 (#$ . 73135) nil])
#@64 Mark all buffers whose major mode matches REGEXP.
(fn REGEXP)
(defalias 'ibuffer-mark-by-mode-regexp #[257 "\300\301\302\303\304\305!\306\"\307\310%!\207" [ibuffer-mark-on-buffer make-byte-code 257 "r\211q\210\302\300\303 \304\211$\")\207" vconcat vector [mode-name string-match format-mode-line nil] 8 "\n\n(fn BUF)"] 8 (#$ . 73364) "sMark by major mode (regexp): "])
#@63 Mark all buffers whose file name matches REGEXP.
(fn REGEXP)
(defalias 'ibuffer-mark-by-file-name-regexp #[257 "\300\301\302\303\304\305!\306\"\307\310%!\207" [ibuffer-mark-on-buffer make-byte-code 257 "\302!\206 r\211q\210\303\301!\205 ;\205 )\211\205! \304\300\305!\"\207" vconcat vector [dired-directory buffer-file-name boundp string-match abbreviate-file-name] 6 "\n\n(fn BUF)"] 8 (#$ . 73744) "sMark by file name (regexp): "])
#@312 Mark all buffers whose content matches REGEXP.
Optional arg ALL-BUFFERS, if non-nil, then search in all buffers.
Otherwise buffers whose name matches an element of
`ibuffer-never-search-content-name' or whose major mode is on
`ibuffer-never-search-content-mode' are excluded.
(fn REGEXP &optional ALL-BUFFERS)
(defalias 'ibuffer-mark-by-content-regexp #[513 "\300\301\302\303\304\305\"\306\"\307\310%!\207" [ibuffer-mark-on-buffer make-byte-code 257 "r\211q\210\n)\305\301\204A >\204; \30628 \f\211\2034 \211@\307\310!\"\211\203, \311\306\"\210\210A\266\202\202 \305\2620\203A \305\262\202a rq\210\312 \313\314\315\316\317!\320\"\321$\216\212eb\210\322\300\305\323#\262*\210)\207" vconcat vector [major-mode ibuffer-never-search-content-mode ibuffer-never-search-content-name nil --cl-block-nil-- string-match buffer-name throw save-mark-and-excursion--save make-byte-code 0 "\301\300!\207" vconcat vector [save-mark-and-excursion--restore] 2 re-search-forward t] 10 "\n\n(fn BUF)"] 10 (#$ . 74194) (byte-code "\301\302!\211D\207" [current-prefix-arg read-string "Mark by content (regexp): "] 3)])
#@59 Mark all buffers whose major mode equals MODE.
(fn MODE)
(defalias 'ibuffer-mark-by-mode #[257 "\300\301\302\303\304\305!\306\"\307\310%!\207" [ibuffer-mark-on-buffer make-byte-code 257 "\301\302\"\300=\207" vconcat vector [buffer-local-value major-mode] 4 "\n\n(fn BUF)"] 8 (#$ . 75317) (byte-code "\300 \211\205 \301!\205 \302\303\304\"!\305\306\203 \307\310\"\202 \311\312 \313\314\313\211&!C\207" [ibuffer-current-buffer buffer-live-p symbol-name buffer-local-value major-mode intern completing-read format "Mark by major mode (default %s): " "Mark by major mode: " ibuffer-list-buffer-modes nil t] 11)])
#@28 Mark all modified buffers.
(defalias 'ibuffer-mark-modified-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "\300!\207" [buffer-modified-p] 3 "\n\n(fn BUF)"]] 2 (#$ . 75947) nil])
#@57 Mark all modified buffers that have an associated file.
(defalias 'ibuffer-mark-unsaved-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "\300\301\"\205\n \302!\207" [buffer-local-value buffer-file-name buffer-modified-p] 4 "\n\n(fn BUF)"]] 2 (#$ . 76144) nil])
#@56 Mark all buffers whose associated file does not exist.
(defalias 'ibuffer-mark-dissociated-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "r\211q\210\203 \303!?\206& \304=\205& \305\302!\205& \n;\205& \303\306\n!!?)\207" [buffer-file-name major-mode dired-directory file-exists-p dired-mode boundp file-name-directory] 4 "\n\n(fn BUF)"]] 2 (#$ . 76423) nil])
#@75 Mark buffers whose major mode is in variable `ibuffer-help-buffer-modes'.
(defalias 'ibuffer-mark-help-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "r\211q\210 >)\207" [major-mode ibuffer-help-buffer-modes] 3 "\n\n(fn BUF)"]] 2 (#$ . 76803) nil])
#@51 Mark buffers whose associated file is compressed.
(defalias 'ibuffer-mark-compressed-file-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "r\211q\210\205\f \302 \")\207" [buffer-file-name ibuffer-compressed-file-name-regexp string-match] 4 "\n\n(fn BUF)"]] 2 (#$ . 77070) nil])
#@70 Mark buffers which have not been viewed in `ibuffer-old-time' hours.
(defalias 'ibuffer-mark-old-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "r\211q\210\205 \302\303 _\304!\")\207" [buffer-display-time ibuffer-old-time time-less-p 3600 time-since] 5 "\n\n(fn BUF)"]] 2 (#$ . 77366) nil])
#@55 Mark all buffers whose name begins and ends with `*'.
(defalias 'ibuffer-mark-special-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "\300\301\302!\"\207" [string-match "^\\*.+\\*$" buffer-name] 5 "\n\n(fn BUF)"]] 2 (#$ . 77677) nil])
#@29 Mark all read-only buffers.
(defalias 'ibuffer-mark-read-only-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "\300\301\"\207" [buffer-local-value buffer-read-only] 4 "\n\n(fn BUF)"]] 2 (#$ . 77930) nil])
#@27 Mark all `dired' buffers.
(defalias 'ibuffer-mark-dired-buffers #[0 "\300\301!\207" [ibuffer-mark-on-buffer #[257 "\300\301\"\302=\207" [buffer-local-value major-mode dired-mode] 4 "\n\n(fn BUF)"]] 2 (#$ . 78152) nil])
#@172 View lines which match REGEXP in all marked buffers.
Optional argument NLINES says how many lines of context to display: it
defaults to one.
(fn REGEXP &optional NLINES)
(defalias 'ibuffer-do-occur #[513 "\211\250\203 \211\301W\203 \301\262\302 \301U\203 \303!\210\304C\305\306\307\310\311!\312\"\313\314%\315\"\210\316\317!\266\320\242#\207" [ibuffer-marked-char 0 ibuffer-count-marked-lines ibuffer-set-mark nil make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn BUF MARK)" ibuffer-map-on-mark ibuffer-redisplay t occur-1] 9 (#$ . 78379) (occur-read-primary-args)])
(provide 'ibuf-ext)
Mini Shell