;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/ebuff-menu.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 'electric)
(defvar electric-buffer-menu-mode-map (byte-code "\303 \304A@\305\"\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315	!\316#\210\306\317\320#\210\306\321\310#\210\306\322\323#\210\306\324\323#\210\306\325\323#\210\306\326\327#\210\306\330\327#\210\306\331\332#\210\306\333\334#\210\306\335\336#\210\306\337\336#\210\306\340\341#\210\306\342\343#\210\306\344\345#\210\306\346\347#\210\350\211\351X\203\237\306\315\n!\352#\210\306\307\315\n!P\352#\210\nT\211\202\201)\306\353\354#\210\306\355\354#\210\306\356\357#\210\306\360\361#\210\306\362\363#\210\306\364\365#\210\306\366\363#\210\306\367\365#\210\306\370\371#\210\306\372\373#\210\306\374\375#\210\306\376\377#\210\306\201@\201A#\210\306\201B\201C#\210\306\201D\201E#\210\306\201F\310#\210\306\201G\323#\210\306\201H\201I#\210)\207" [map help-char i make-keymap fillarray Electric-buffer-menu-undefined define-key "" nil "" suspend-frame "v" Electric-buffer-menu-mode-view-buffer char-to-string Helper-help "?" Helper-describe-bindings "" "" Electric-buffer-menu-quit "" "q" " " Electric-buffer-menu-select "
" "\f" recenter "s" Buffer-menu-save "d" Buffer-menu-delete "k" "" Buffer-menu-delete-backwards "" Buffer-menu-backup-unmark "~" Buffer-menu-not-modified "u" Buffer-menu-unmark 48 57 digit-argument "-" negative-argument "-" "m" Buffer-menu-mark "" universal-argument "" previous-line "" next-line "p" "n" "" scroll-up-command "v" scroll-down-command ">" scroll-right "<" scroll-left "" scroll-other-window ">" end-of-buffer "<" beginning-of-buffer "" "" [mouse-2] Electric-buffer-menu-mouse-select] 6))
(byte-code "\301\302\303\304#\210\301\305\303\306#\210\301\307\303\310!#\210\301\311\303\312#\207" [help-char put Electric-buffer-menu-quit :advertised-binding "" Electric-buffer-menu-select " " Helper-help char-to-string Helper-describe-bindings "?"] 5)
#@49 Normal hook run by `electric-buffer-menu-mode'.
(defvar electric-buffer-menu-mode-hook nil (#$ . 2490))
#@1294 Pop up the Buffer Menu in an "electric" window.
If you type SPC or RET (`Electric-buffer-menu-select'), that
selects the buffer at point and quits the "electric" window.
Otherwise, you can move around in the Buffer Menu, marking
buffers to be selected, saved or deleted; these other commands
are much like those of `Buffer-menu-mode'.

Run hooks in `electric-buffer-menu-mode-hook' on entry.

\<electric-buffer-menu-mode-map>
\[keyboard-quit] or \[Electric-buffer-menu-quit] -- exit buffer menu, returning to previous window and buffer
  configuration.  If the very first character typed is a space, it
  also has this effect.
\[Electric-buffer-menu-select] -- select buffer of line point is on.
  Also show buffers marked with m in other windows,
  deletes buffers marked with "D", and saves those marked with "S".
\[Buffer-menu-mark] -- mark buffer to be displayed.
\[Buffer-menu-not-modified] -- clear modified-flag on that buffer.
\[Buffer-menu-save] -- mark that buffer to be saved.
\[Buffer-menu-delete] or \[Buffer-menu-delete-backwards] -- mark that buffer to be deleted.
\[Buffer-menu-unmark] -- remove all kinds of marks from current line.
\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done.
\[Buffer-menu-backup-unmark] -- back up a line and remove marks.
(defalias 'electric-buffer-list #[(arg) "\306\211\307 \310\216\311!\312!\210\313\216\fq\210\314 \210
eb\210\315\316\306\317#\203+\320u\210\321 \210\322\323\215,	\205aq\210\324 \325 \210eb\210\315\326\306\317#b\210\306\211\223\210\203[\327 \202`\330\331\317!!)*\207" [buffer select #1=#:wconfig arg header-line-format header nil current-window-configuration ((set-window-configuration #1#)) list-buffers-noselect Electric-pop-up-window ((byte-code "q\210\301 \210\302 \210\303\304!\207" [buffer Buffer-menu-mode bury-buffer message ""] 2)) electric-buffer-menu-mode search-forward "\n." t -1 electric-buffer-update-highlight electric-buffer-menu-select (byte-code "\306\307!\210\310 C`eb\210	\204\311y\210`db\210\312y\210`\313\211\fW\204,
V\2030\f\2021
b\210\314\315\316\317\320\fB%,\207" [unread-command-events Buffer-menu-use-header-line goal-column last first start-point message "<<< Type SPC or RET to bury the buffer list >>>" read-event 2 -1 0 Electric-command-loop electric-buffer-menu-select nil t electric-buffer-menu-looper] 8) point-marker Buffer-menu-execute "\n>" Buffer-menu-select switch-to-buffer Buffer-menu-buffer opoint] 4 (#$ . 2602) "P"])
(defalias 'electric-buffer-menu-looper #[(state condition) "\203@\303>\204\304@A\"\210\202@`	@W\203)eb\210\n\204@\305y\210\202@`	AV\203@db\210\306y\210\307d!\203@\310\306!\210\311 \207" [condition state Buffer-menu-use-header-line (buffer-read-only end-of-buffer beginning-of-buffer) signal 2 -1 pos-visible-in-window-p recenter electric-buffer-update-highlight] 3])
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [electric-buffer-menu-mode-hook variable-documentation put purecopy "Hook run when entering Electric Buffer Menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp electric-buffer-menu-mode-map definition-name electric-buffer-menu-mode] 5)
(defvar electric-buffer-menu-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [electric-buffer-menu-mode-map variable-documentation put purecopy "Keymap for `electric-buffer-menu-mode'." boundp electric-buffer-menu-mode-syntax-table definition-name electric-buffer-menu-mode] 5)
(defvar electric-buffer-menu-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [electric-buffer-menu-mode-syntax-table variable-documentation put purecopy "Syntax table for `electric-buffer-menu-mode'." electric-buffer-menu-mode-abbrev-table definition-name electric-buffer-menu-mode] 5)
(defvar electric-buffer-menu-mode-abbrev-table (progn (define-abbrev-table 'electric-buffer-menu-mode-abbrev-table nil) electric-buffer-menu-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [electric-buffer-menu-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `electric-buffer-menu-mode'." electric-buffer-menu-mode derived-mode-parent Buffer-menu-mode] 5)
#@575 Toggle Electric Buffer Menu mode in this buffer.
With a prefix argument ARG, enable Long Lines mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

Electric Buffer Menu mode is a minor mode which is automatically
enabled and disabled by the \[electric-buffer-list] command.
See the documentation of `electric-buffer-list' for details.

In addition to any hooks its parent mode `Buffer-menu-mode' might have run,
this mode runs the hook `electric-buffer-menu-mode-hook', as the final step
during initialization.
(defalias 'electric-buffer-menu-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327!\210\330\f!\210\331 \306\332!\210\333)\334\335!\207" [delay-mode-hooks major-mode mode-name electric-buffer-menu-mode-map electric-buffer-menu-mode-syntax-table parent make-local-variable t Buffer-menu-mode electric-buffer-menu-mode "Electric Buffer Menu" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table "Electric Buffer List" Helper-return-blurb "return to buffer editing" run-mode-hooks electric-buffer-menu-mode-hook electric-buffer-menu-mode-abbrev-table local-abbrev-table mode-line-buffer-identification] 6 (#$ . 7047) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311#\207" [defalias Electric-buffer-menu-mode electric-buffer-menu-mode nil make-obsolete "24.3" put Electric-buffer-menu-undefined suppress-keymap t] 4)
(defalias 'Electric-buffer-menu-exit #[nil "\301\302 !\303\304\305\217\207" [unread-command-events listify-key-sequence this-command-keys nil (byte-code "\300\301\302\"\207" [throw electric-buffer-menu-select nil] 3) ((error (byte-code "\300 \210\301 \207" [Buffer-menu-mode other-buffer] 1)))] 3 nil nil])
#@195 Leave Electric Buffer Menu, selecting buffers and executing changes.
Save buffers marked "S".  Delete buffers marked "K".
Select buffer at point and display buffers marked ">" in other windows.
(defalias 'Electric-buffer-menu-select #[nil "\300\301`\"\207" [throw electric-buffer-menu-select] 3 (#$ . 9113) nil])
(defalias 'Electric-buffer-menu-mouse-select #[(event) "\302\303!\211@)!\210\304\305 !q\210\303!\306	8\206+	A@:\203(	A@@\202+	A@)b\210\307\310`\"\207" [event position select-window event-end window-buffer selected-window 5 throw electric-buffer-menu-select] 4 nil "e"])
#@123 Leave Electric Buffer Menu, restoring previous window configuration.
Skip execution of select, save, and delete commands.
(defalias 'Electric-buffer-menu-quit #[nil "\300\301\302\"\207" [throw electric-buffer-menu-select nil] 3 (#$ . 9710) nil])
(defalias 'Electric-buffer-menu-undefined #[nil "\300 \210\301\302\303\304!\"\210\305\306!\207" [ding message "%s" substitute-command-keys "Type \\[Electric-buffer-menu-quit] to exit, \\[Electric-buffer-menu-select] to select, \\[Helper-help] for help, \\[Helper-describe-bindings] for commands." sit-for 4] 4 nil nil])
#@96 View buffer on current line in Electric Buffer Menu.
Return to Electric Buffer Menu when done.
(defalias 'Electric-buffer-menu-mode-view-buffer #[nil "\301\302!\211\203\303!\202\304 \210\305\306\"\210\307\310!)\207" [bufnam Buffer-menu-buffer nil view-buffer ding message "Buffer %s does not exist!" sit-for 4] 4 (#$ . 10282) nil])
(defvar electric-buffer-overlay nil)
(defalias 'electric-buffer-update-highlight #[nil "\301\302!\205 \204\303\300!\210\304``\"\305\306 \307 #\210\310\311\312#\207" [electric-buffer-overlay derived-mode-p electric-buffer-menu-mode make-local-variable make-overlay move-overlay line-beginning-position line-end-position overlay-put face highlight] 4])
(provide 'ebuff-menu)