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



(require 'electric)
(defvar electric-buffer-menu-mode-map (byte-code "\301 \302
A@\303\"\210\304
\305\306#\210\304
\307\310#\210\304
\311\312#\210\304
\313!\314#\210\304
\315\316#\210\304
\317\306#\210\304
\320\321#\210\304
\322\321#\210\304
\323\321#\210\304
\324\325#\210\304
\326\325#\210\304
\327\330#\210\304
\331\332#\210\304
\333\334#\210\304
\335\334#\210\304
\336\337#\210\304
\340\341#\210\304
\342\343#\210\304
\344\345#\210\304
\346\347#\210\304
\350\351#\210\352\211\353W\203\251\304\313!\354#\210\304\305\313!P\354#\210\211T\262
\202\212\210\304
\355\356#\210\304
\357\356#\210\304
\360\361#\210\304
\362\363#\210\304
\364\365#\210\304
\366\367#\210\304
\370\365#\210\304
\371\367#\210\304
\372\373#\210\304
\374\375#\210\304
\376\377#\210\304
\201@\201A#\210\304
\201B\201C#\210\304
\201D\201E#\210\304
\201F\201G#\210\304
\201H\306#\210\304
\201I\321#\210\304
\201J\201K#\210\207" [help-char 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 "\377" Buffer-menu-unmark-all-buffers "U" Buffer-menu-unmark-all 0 10 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] 7))
(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 (#$ . 2118))
#@1375 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.
\[Buffer-menu-unmark-all] -- remove all kinds of marks from all lines.
\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done.
\[Buffer-menu-backup-unmark] -- back up a line and remove marks.

(fn ARG)
(defalias 'electric-buffer-list #[257 "\304\211C\305 \306\307\"\216
\310!\240\210\311\242!\210\306\312\"\216\242q\210\313 \210\211eb\210\314\315\304\316#\2032\317u\210\320 \210\3212y\322\323!\210\324 	B`eb\210\n\204M\325y\210`db\210\317y\210`\326W\204c
V\203g
\202hb\210\327\321\304\316\330B%)\266\2030\262\210*\210
\205\255\211\242q\210
b\210\331 \332 \210eb\210\314\333\304\316#
b\210
\304\211\223\210\203\246\334 \202\253\335\336\316!!\262
\207" [header-line-format unread-command-events Buffer-menu-use-header-line goal-column nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] list-buffers-noselect Electric-pop-up-window #[0 "\300\242q\210\301 \210\302 \210\303\304!\207" [V0 Buffer-menu-mode bury-buffer message ""] 2] electric-buffer-menu-mode search-forward "\n." t -1 electric-buffer-update-highlight electric-buffer-menu-select message "<<< Type SPC or RET to bury the buffer list >>>" read-event 2 0 Electric-command-loop electric-buffer-menu-looper point-marker Buffer-menu-execute "\n>" Buffer-menu-select switch-to-buffer Buffer-menu-buffer] 15 (#$ . 2230) "P"])
#@24 

(fn STATE CONDITION)
(defalias 'electric-buffer-menu-looper #[514 "\211\203\211@\301>\204\302
@A\"\210\202@`@W\203)eb\210\204@\303y\210\202@`AV\203@db\210\304y\210\305d!\203@\306\304!\210\307 \207" [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] 5 (#$ . 4763)])
(defvar electric-buffer-menu-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [electric-buffer-menu-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar electric-buffer-menu-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [electric-buffer-menu-mode-abbrev-table 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 (lambda (#1=#:def-tmp-var) (defvar electric-buffer-menu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `electric-buffer-menu-mode'." (lambda (#1#) (defvar electric-buffer-menu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `electric-buffer-menu-mode'." derived-mode-parent Buffer-menu-mode] 5)
#@590 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 or penultimate step during initialization.
(defalias 'electric-buffer-menu-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\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 electric-buffer-menu-mode-abbrev-table 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 local-abbrev-table mode-line-buffer-identification] 5 (#$ . 6516) 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 #[0 "\301\302 !\244\3031\304\305\306\"0\207\210\307 \210\310 \207" [unread-command-events listify-key-sequence this-command-keys (error) throw electric-buffer-menu-select nil Buffer-menu-mode other-buffer] 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 #[0 "\300\301`\"\207" [throw electric-buffer-menu-select] 3 (#$ . 8540) nil])
#@14 

(fn EVENT)
(defalias 'Electric-buffer-menu-mouse-select #[257 "\300\301!\211@\262
!\210\302 q\210\303\301!!b\210\304\305`\"\207" [select-window event-end window-buffer posn-point throw electric-buffer-menu-select] 4 (#$ . 8857) "e"])
#@123 Leave Electric Buffer Menu, restoring previous window configuration.
Skip execution of select, save, and delete commands.
(defalias 'Electric-buffer-menu-quit #[0 "\300\301\302\"\207" [throw electric-buffer-menu-select nil] 3 (#$ . 9102) nil])
(defalias 'Electric-buffer-menu-undefined #[0 "\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 #[0 "\300\301!\211\203\302
!\207\303 \210\304\305\"\210\306\307!\207" [Buffer-menu-buffer nil view-buffer ding message "Buffer %s does not exist!" sit-for 4] 4 (#$ . 9670) nil])
(defvar electric-buffer-overlay nil)
(defalias 'electric-buffer-update-highlight #[0 "\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)