| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/ibuf-ext.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:22 2024
;;; 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 "rq\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\307S!\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\307S!\210`eU\2035 db\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) "rq\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) "rq\210\212rq\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) "rq\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!rq\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) "rq\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!rq\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) "rq\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\311A\">\202~ \312=\203: \313A\n\"\211\204- \314\307!\210\315\316A\"\210\317\f \211 A@)\")\202~ @\236\211 @ A\211 @ A\211 @ A \211 \204v \314\307!\210\315\320@\"\210\fA\".\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
@\211A \313\314\"\211 @ A@ \f I\210 T,
A\211
\204! *\310 \312 W\203\212 \fH \203s \203\200 \n8@BB)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\"\300BCB\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\211m\204* \303`\304\"\211\203* b\210\305`\304\" BB\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 \211Ab)\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\210A\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 AB\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@\211B 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 BB)\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@\211A \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) "\302B 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) "\302BC\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\303A!\304Q\207\303!\207" [qualifier not " [NOT" ibuffer-format-qualifier-1 "]"] 3])
(defalias 'ibuffer-format-qualifier-1 #[(qualifier) "@\211\305=\203 \306A\307Q\202@ \310=\203# \311\312\313A\314#\307Q\202@ @\n\236\2041 \315\316\"\210\317 \211 A@)\320\321\322A\"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\302B!\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\303EB\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\302B!\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\303EB\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\302B!\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\303EB\301\207" [ibuffer-filtering-alist derived-mode "derived mode" #[(buf qualifier) "rq\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\302B!\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\303EB\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\302B!\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\303EB\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\302B!\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\303EB\301\207" [ibuffer-filtering-alist size-gt "size greater than" #[(buf qualifier) "rq\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\302B!\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\303EB\301\207" [ibuffer-filtering-alist size-lt "size less than" #[(buf qualifier) "rq\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\302B!\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\303EB\301\207" [ibuffer-filtering-alist content "content" #[(buf qualifier) "rq\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\302B!\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\303EB\301\207" [ibuffer-filtering-alist predicate "predicate" #[(buf qualifier) "rq\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\303EB\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\303EB\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\303EB\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\303EB\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\303EB\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\216rq\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!Cr\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) "rq\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 rq\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) "rq\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) "rq\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) "rq\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) "rq\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)