JezK
Edit File: ibuf-ext.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:30 2026 ;;; 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)