Current File : //proc/self/root/kunden/kunden/proc/thread-self/root/usr/share/emacs/27.2/lisp/ibuf-macs.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

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

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

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


#@251 Evaluate TRUE-BODY or FALSE-BODY depending on value of TEST.
If TEST returns non-nil, bind `it' to the value, and evaluate
TRUE-BODY.  Otherwise, evaluate forms in FALSE-BODY as if in `progn'.
Compare with `if'.

(fn TEST TRUE-BODY &rest FALSE-BODY)
(defalias 'ibuffer-aif '(macro . #[642 "\300\301!\302
DC\303\302\304DCE\305BFE\207" [make-symbol "ibuffer-aif-sym" let if it progn] 11 (#$ . 409)]))
(byte-code "\300\301\302\303#\300\207" [function-put ibuffer-aif lisp-indent-function 2] 4)
#@130 Evaluate BODY if TEST returns non-nil.
During evaluation of body, bind `it' to the value returned by TEST.

(fn TEST &rest BODY)
(defalias 'ibuffer-awhen '(macro . #[385 "\300\301B\302BBB\207" [ibuffer-aif progn (nil)] 6 (#$ . 915)]))
(byte-code "\300\301\302\303#\300\207" [function-put ibuffer-awhen lisp-indent-function 1] 4)
#@89 Save the marked status of the buffers and execute BODY; restore marks.

(fn &rest BODY)
(defalias 'ibuffer-save-marks '(macro . #[128 "\300\301!\302
\303B\304B\305\306\307BD\310\311BBEE\207" [make-symbol "bufsym" let ((current-buffer)) ((ibuffer-save-marks-tmp-mark-list (ibuffer-current-state-list))) unwind-protect progn save-excursion with-current-buffer ((ibuffer-redisplay-engine (delq nil (mapcar #'(lambda (e) (when (buffer-live-p (car e)) e)) ibuffer-save-marks-tmp-mark-list))) (ibuffer-redisplay t))] 9 (#$ . 1252)]))
(byte-code "\300\301\302\303#\300\207" [function-put ibuffer-save-marks lisp-indent-function 0] 4)
#@1046 Define a column SYMBOL for use with `ibuffer-formats'.

BODY will be called with `buffer' bound to the buffer object, and
`mark' bound to the current mark on the buffer.  The original ibuffer
buffer will be bound to `ibuffer-buf'.

If NAME is given, it will be used as a title for the column.
Otherwise, the title will default to a capitalized version of the
SYMBOL's name.  PROPS is a plist of additional properties to add to
the text, such as `mouse-face'.  And SUMMARIZER, if given, is a
function which will be passed a list of all the strings in its column;
it should return a string to display at the bottom.

If HEADER-MOUSE-MAP is given, it will be used as a keymap for the
title of the column.

Note that this macro expands into a `defun' for a function named
ibuffer-make-column-NAME.  If INLINE is non-nil, then the form will be
inlined into the compiled format versions.  This means that if you
change its definition, you should explicitly call
`ibuffer-recompile-formats'.

(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)
(defalias 'define-ibuffer-column '(macro . #[385 "\211\203
\211
A\262\242\202\300\301\302GD\"\303
\304\"A@\303\305\"A@\303\306\"A@\303\307\"A@\303\310\"A@\211\203^\211@\311>\203F\211AA\262
\2023\312>A@\203U\313\262
\2023\314\315@\"\210\2023\210\316\317\320\n!P!\321\322	BB\203z\323
BB\202{\211\324\203\215\325\326DD\327BB\202\224\330\331\332\257\333\326D\334\f;\203\245\f\202\253\335\320!!F\205\272\333\326D\336	F\205\312\333\326D\337\326\fDF	\205\327\333\326	D\340BB\341BBBBBB\266\203\207" [signal wrong-number-of-arguments define-ibuffer-column plist-member :name :inline :props :summarizer :header-mouse-map (:name :inline :props :summarizer :header-mouse-map :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :inline :props :summarizer :header-mouse-map)" intern "ibuffer-make-column-" symbol-name with-current-buffer buffer propertize progn push quote (ibuffer-inline-columns) defun (buffer mark) (ignore mark) put 'ibuffer-column-name capitalize 'header-mouse-map 'ibuffer-column-summarizer ('ibuffer-column-summary nil) (:autoload-end)] 20 (#$ . 1890)]))
(byte-code "\300\301\302\303#\300\207" [function-put define-ibuffer-column lisp-indent-function defun] 4)
#@444 Define a method of sorting named NAME.
DOCUMENTATION is the documentation of the function, which will be called
`ibuffer-do-sort-by-NAME'.
DESCRIPTION is a short string describing the sorting method.

For sorting, the forms in BODY will be evaluated with `a' bound to one
buffer object, and `b' bound to another.  BODY should return a non-nil
value if and only if `a' is "less than" `b'.

(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)
(defalias 'define-ibuffer-sorter '(macro . #[642 "\211\203
\211
A\262\242\202\300\301\302GD\"\303
\304\"A@
\211\203E\211@\305>\203.\211AA\262
\202\306>A@\203<\307\262
\202\310\311@\"\210\202\210\312\313\314\315\316	!P!\307\206W\317\320\321\322\323
DE\324\325\321\326\323DE\257	\327\330\323	D\331\332\333BBDF\334BB\335BBB\207" [signal wrong-number-of-arguments define-ibuffer-sorter plist-member :description (:description :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:description)" progn defun intern "ibuffer-do-sort-by-" symbol-name "No :documentation specified for this sorting method." (interactive) setq ibuffer-sorting-mode quote (when (eq ibuffer-sorting-mode ibuffer-last-sorting-mode) (setq ibuffer-sorting-reversep (not ibuffer-sorting-reversep))) (ibuffer-redisplay t) ibuffer-last-sorting-mode push list function lambda (a b) (ibuffer-sorting-functions-alist) (:autoload-end)] 18 (#$ . 4204)]))
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put define-ibuffer-sorter lisp-indent-function 1 doc-string-elt 2] 5)
#@1964 Generate a function which operates on a buffer.
OP becomes the name of the function; if it doesn't begin with
`ibuffer-do-', then that is prepended to it.
When an operation is performed, this function will be called once for
each marked buffer, with that buffer current.

ARGS becomes the formal parameters of the function.
DOCUMENTATION becomes the docstring of the function.
INTERACTIVE becomes the interactive specification of the function.
MARK describes which type of mark (:deletion, or nil) this operation
uses.  :deletion means the function operates on buffers marked for
deletion, otherwise it acts on normally marked buffers.
MODIFIER-P describes how the function modifies buffers.  This is used
to set the modification flag of the Ibuffer buffer itself.  Valid
values are:
 nil - the function never modifiers buffers
 t - the function it always modifies buffers
 :maybe - attempt to discover this information by comparing the
  buffer's modification flag.
DANGEROUS is a boolean which should be set if the user should be
prompted before performing this operation.
OPSTRING is a string which will be displayed to the user after the
operation is complete, in the form:
 "Operation complete; OPSTRING x buffers"
ACTIVE-OPSTRING is a string which will be displayed to the user in a
confirmation message, in the form:
 "Really ACTIVE-OPSTRING x buffers?"
BEFORE is a form to evaluate before start the operation.
AFTER is a form to evaluate once the operation is complete.
COMPLEX means this function is special; if COMPLEX is nil BODY
evaluates once for each marked buffer, MBUF, with MBUF current
and saving the point.  If COMPLEX is non-nil, BODY evaluates
without requiring MBUF current.
BODY define the operation; they are forms to evaluate per each
marked buffer.  BODY is evaluated with `buf' bound to the
buffer object.

(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING BEFORE AFTER COMPLEX) &rest BODY)
(defalias 'define-ibuffer-op '(macro . #[899 "\211\203
\211
A\262\242\202\300\301\302GD\"\303
\304\"A@\303\305\"A@\303\306\"A@\303\307\"A@\303\310\"\2064\311A@\303\312\"\206?\313A@\303\314\"A@\303\315\"A@\303	\316\"A@	\211\203\203\211@\317>\203k\211AA\262
\202X\320>A@\203z\321\262
\202X\322\323@\"\210\202X\210\324\325\326\327\330\331!\"\203\225\332\202\226\333\331!P!;\203\251\202\256\334\335	\"
\203\272\336D\202\273\337\340\341\342\343\344=\203\312\345\202\313\346CDC\347\350\351\352\344=\203\335\353\202\336\354DF\355\356\357=\205\352\360\205\362C\361\362\363\364Q\365BBD$\f\203\n
\324B\202
\324\366\367\370BE\371BB\342\372D\373\344=\203&
\374\202'
\375\376\377\201@\201A\201B=\203J
\342\201C\201D\201EBBE\202L
FDDDDE\203h
\347\201F\201GBBE\202i
\211\266\203F\257\201HBB\207" [signal wrong-number-of-arguments define-ibuffer-op plist-member :interactive :mark :modifier-p :dangerous :opstring (nil "operated on") :active-opstring (nil "Operate on") :before :after :complex (:interactive :mark :modifier-p :dangerous :opstring :active-opstring :before :after :complex :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:interactive :mark :modifier-p :dangerous :opstring :active-opstring :before :after :complex)" progn defun intern string-match "^ibuffer-do" symbol-name "" "ibuffer-do-" format "%s marked buffers." interactive (interactive) (cl-assert (derived-mode-p 'ibuffer-mode)) (setq ibuffer-did-modification nil) let marked-names :deletion ibuffer-deletion-marked-buffer-names ibuffer-marked-buffer-names when (null marked-names) (setq marked-names (list (buffer-name (ibuffer-current-buffer)))) ibuffer-set-mark ibuffer-deletion-char ibuffer-marked-char append (progn) t ((setq ibuffer-did-modification t)) (ibuffer-redisplay t) message "Operation finished; " " %s buffers" (count) with-current-buffer buf save-excursion (t) _ count ibuffer-map-deletion-lines ibuffer-map-marked-lines function lambda (buf mark) (ignore mark) :maybe ((ibuffer-tmp-previous-buffer-modification (buffer-modified-p buf))) prog1 ((when (not (eq ibuffer-tmp-previous-buffer-modification (buffer-modified-p buf))) (setq ibuffer-did-modification t))) ibuffer-confirm-operation-on (marked-names) (:autoload-end)] 40 (#$ . 5760)]))
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put define-ibuffer-op lisp-indent-function 2 doc-string-elt 3] 5)
#@685 Define a filter named NAME.
DOCUMENTATION is the documentation of the function.
READER is a form which should read a qualifier from the user.
DESCRIPTION is a short string describing the filter.
ACCEPT-LIST is a boolean; if non-nil, the filter accepts either
a single condition or a list of them; in the latter
case the filter is the `or' composition of the conditions.

BODY should contain forms which will be evaluated to test whether or
not a particular buffer should be displayed or not.  The forms in BODY
will be evaluated with BUF bound to the buffer object, and QUALIFIER
bound to the current value of the filter.

(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)
(defalias 'define-ibuffer-filter '(macro . #[642 "\211\203
\211
A\262\242\202\300\301\302GD\"\303
\304\"A@\303\305\"A@\303\306\"A@\211\203Q\211@\307>\203:\211AA\262
\202'\310>A@\203H\311\262
\202'\312\313@\"\210\202'\210\314\315\316	!P!\317\320!\317\321!\322\323\324\f\206j\325\326\327\fDD\330\331\332D\333BBD\334BD\205\273\322\335\336\337
\331\332D\340BBE\337
\341BB\342\343\337\344\345\346\347\350\351\331\332\"D\352BBE\353BBCBDCBEE\257\354\355\356
DD\357\360\361\"
E\357\360\362\"E\363BBBBF\257\364\327\332D	\350\365\366\311\322B\312\367\342\370\332D\371BB\372BBEFEF\373BB\374BBB\266\203\207" [signal wrong-number-of-arguments define-ibuffer-filter plist-member :reader :description :accept-list (:reader :description :accept-list :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:reader :description :accept-list)" intern "ibuffer-filter-by-" symbol-name make-symbol "ibuffer-filter" "ibuffer-qualifier-str" progn defun (qualifier) "This filter is not documented." interactive list let cons quote (qualifier) (qualifier) (unless (listp qualifier) (setq qualifier (list qualifier))) (setq qualifier (sort (delete-dups qualifier) #'string-lessp)) setq ((car qualifier)) ((mapconcat (lambda (m) (if (symbolp m) (symbol-name m) m)) qualifier ",")) when (cdr qualifier) \` or \,@ mapcar lambda (m) (m) (qualifier) if null ibuffer-push-filter message format "Filter by %s already applied:  %%s" "Filter by %s added:  %%s" ((ibuffer-update nil t)) push (buf qualifier) condition-case (ibuffer-pop-filter) eq ('predicate) ((error "Wrong filter predicate: %S" qualifier)) (ibuffer-filtering-alist) (:autoload-end)] 36 (#$ . 10209)]))
(byte-code "\300\301\302\303#\300\301\304\303#\305\306!\207" [function-put define-ibuffer-filter lisp-indent-function 2 doc-string-elt provide ibuf-macs] 5)