HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/ebuff-menu.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\306\350\351#\210\306\352\353#\210\354\211\355X\203\253\306\315\n!\356#\210\306\307\315\n!P\356#\210\nT\211\202\215)\306\357\360#\210\306\361\360#\210\306\362\363#\210\306\364\365#\210\306\366\367#\210\306\370\371#\210\306\372\367#\210\306\373\371#\210\306\374\375#\210\306\376\377#\210\306\201@\201A#\210\306\201B\201C#\210\306\201D\201E#\210\306\201F\201G#\210\306\201H\201I#\210\306\201J\310#\210\306\201K\323#\210\306\201L\201M#\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 "\377" Buffer-menu-unmark-all-buffers "U" Buffer-menu-unmark-all 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 (#$ . 2454))
#@1365 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.
(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\3222\323\324!\210\325  B `eb\210!\204I\326y\210`db\210\320y\210`\327\"#$\211%$W\204i%#V\203n$\202p%b\210\330\322\306\317\331$#B%,0,	\205\257q\210\332 &\333 \210eb\210\315\334\306\317#&b\210&\306\211\223\210\203\251\335 \202\256\336\337\317!!)*\207" [buffer select #1=#:wconfig arg header-line-format header nil current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] list-buffers-noselect Electric-pop-up-window #[nil "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 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 unread-command-events Buffer-menu-use-header-line goal-column last first start-point opoint] 8 (#$ . 2566) "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])
(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 #[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 (#$ . 6838) 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 !\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 #[nil "\300\301`\"\207" [throw electric-buffer-menu-select] 3 (#$ . 8872) nil])
(defalias 'Electric-buffer-menu-mouse-select #[(event) "\301\302!\211@\262!\210\303 q\210\304\302!!b\210\305\306`\"\207" [event select-window event-end window-buffer posn-point throw electric-buffer-menu-select] 3 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 (#$ . 9419) 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 (#$ . 9991) 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)