;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:23:05 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/ebuff-menu.el ;;; emacs version 19.28.90.69. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/ebuff-menu.el' was compiled for Emacs 19")) (byte-code "!!\f Bć" [require electric boundp electric-buffer-menu-mode-map nil current-load-list] 2) #@632 Pops up a buffer describing the set of Emacs buffers. Vaguely like ITS lunar select buffer; combining typeoutoid buffer listing with menuoid buffer selection. If the very next character typed is a space then the buffer list window disappears. Otherwise, one may move around in the buffer list window, marking buffers to be selected, saved or deleted. To exit and select a new buffer, type a space when the cursor is on the appropriate line of the buffer-list window. Other commands are much like those of buffer-menu-mode. Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. \{electric-buffer-menu-mode-map} (defalias 'electric-buffer-list #[(arg) "Ë\n2 q  eb# b , 1!!)*" [nil buffer select ((byte-code "!!Ŏ\fq ȍ )" [((list-buffers arg)) window-buffer Electric-pop-up-window "*Buffer List*" buffer ((byte-code "q !!" [buffer Buffer-menu-mode bury-buffer message ""] 2)) Electric-buffer-menu-mode electric-buffer-menu-select (byte-code "! C=\"eby`dby` \f b \fB%+" [message "<<< Press Return to bury the buffer list >>>" read-event unread-command-events 32 nil throw electric-buffer-menu-select 2 -1 0 goal-column last first Electric-command-loop t electric-buffer-menu-looper] 8) select] 3)) point-marker opoint Buffer-menu-execute search-forward "\n>" t Buffer-menu-select switch-to-buffer Buffer-menu-buffer] 4 (#$ . 604) "P"]) (defalias 'electric-buffer-menu-looper #[(state condition) "@>@A\"` @Weby` AV5dbyd!5!" [condition (buffer-read-only end-of-buffer beginning-of-buffer) signal state 2 -1 pos-visible-in-window-p recenter] 3]) (put (quote Electric-buffer-menu-mode) (quote mode-class) (quote special)) #@1209 Major mode for editing a list of buffers. Each line describes one of the buffers in Emacs. Letters do not insert themselves; instead, they are commands. \ \[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. \{electric-buffer-menu-mode-map} Entry to this mode via command electric-buffer-list calls the value of electric-buffer-menu-mode-hook if it is non-nil. (defalias 'Electric-buffer-menu-mode #[nil " \n!! \feb#*u!" [kill-all-local-variables use-local-map electric-buffer-menu-mode-map "Electric Buffer Menu" mode-name "Electric Buffer List" mode-line-buffer-identification make-local-variable Helper-return-blurb "return to buffer editing" t truncate-lines buffer-read-only Electric-buffer-menu-mode major-mode search-forward "\n." nil -1 run-hooks electric-buffer-menu-mode-hook] 4 (#$ . 2370)]) (byte-code "#\f} A@\"#A@\"##!################-X-!#-!P#-T-)#########@#AB#CD#EF#GH#IJ#K#L#M#NO#*Շ" [put Electric-buffer-menu-undefined suppress-keymap t electric-buffer-menu-mode-map make-keymap submap map fillarray define-key "" "" suspend-emacs "v" Electric-buffer-menu-mode-view-buffer char-to-string help-char Helper-help "?" Helper-describe-bindings "" nil "" 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 i 57 digit-argument "-" negative-argument "-" "m" Buffer-menu-mark "" universal-argument "" previous-line "" next-line "p" "n" "" scroll-up "v" scroll-down ">" scroll-right "<" scroll-left "" scroll-other-window ">" end-of-buffer "<" beginning-of-buffer "" "" [escape escape escape] [mouse-2] Electric-buffer-menu-mouse-select] 6) (defalias 'Electric-buffer-menu-exit #[nil " !ŏ" [listify-key-sequence this-command-keys unread-command-events nil (byte-code "\"" [throw electric-buffer-menu-select nil] 3) ((error (byte-code " " [Buffer-menu-mode other-buffer] 1)))] 3 nil nil]) #@199 Leave Electric Buffer Menu, selecting buffers and executing changes. Saves buffers marked "S". Deletes buffers marked "K". Selects buffer at point and displays buffers marked ">" in other windows. (defalias 'Electric-buffer-menu-select #[nil "`\"" [throw electric-buffer-menu-select] 3 (#$ . 5591) nil]) (defalias 'Electric-buffer-menu-mouse-select #[(event) "  8:‚ 8)@)! !q  8:+‚, 8)A@:>\fA@@A\fA@)b`\"" [select-window event 2 1 position window-buffer selected-window throw electric-buffer-menu-select] 4 nil "e"]) #@121 Leave Electric Buffer Menu, restoring previous window configuration. Does not execute select, save, or delete commands. (defalias 'Electric-buffer-menu-quit #[nil "\"" [throw electric-buffer-menu-select nil] 3 (#$ . 6151) nil]) (defalias 'Electric-buffer-menu-undefined #[nil " !=-!=-!!=-!=-!0!!!" [ding message key-binding "" Electric-buffer-menu-quit " " Electric-buffer-menu-select char-to-string help-char Helper-help "?" Helper-describe-bindings substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands" "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]) #@97 View buffer on current line in Electric Buffer Menu. Returns to Electric Buffer Menu when done. (defalias 'Electric-buffer-menu-mode-view-buffer #[nil "!\n! \n\"!)" [Buffer-menu-buffer nil bufnam view-buffer ding message "Buffer %s does not exist!" sit-for 4] 4 (#$ . 6936) nil])