;;; compiled by rms@mole.gnu.ai.mit.edu on Wed May 12 12:41:13 1993 ;;; from file /home/fsf/rms/e19/lisp/buff-menu.el ;;; emacs version 19.5.10. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defvar Buffer-menu-mode-map nil "\ ") (byte-code " \"########################" [Buffer-menu-mode-map make-keymap suppress-keymap t define-key "q" Buffer-menu-quit "v" Buffer-menu-select "2" Buffer-menu-2-window "1" Buffer-menu-1-window "f" Buffer-menu-this-window "o" Buffer-menu-other-window "" Buffer-menu-switch-other-window "s" Buffer-menu-save "d" Buffer-menu-delete "k" "" Buffer-menu-delete-backwards " " "x" Buffer-menu-execute " " next-line "n" "p" previous-line "" Buffer-menu-backup-unmark "~" Buffer-menu-not-modified "?" describe-mode "u" Buffer-menu-unmark "m" Buffer-menu-mark "t" Buffer-menu-visit-tags-table "%" Buffer-menu-toggle-read-only put Buffer-menu-mode mode-class special] 4) (defalias 'Buffer-menu-mode #[nil " \n! !" [kill-all-local-variables use-local-map Buffer-menu-mode-map t truncate-lines buffer-read-only Buffer-menu-mode major-mode "Buffer Menu" mode-name run-hooks buffer-menu-mode-hook] 2 "\ 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. \\ \\[Buffer-menu-mark] -- mark buffer to be displayed. \\[Buffer-menu-select] -- select buffer of line point is on. Also show buffers marked with m in other windows. \\[Buffer-menu-1-window] -- select that buffer in full-frame window. \\[Buffer-menu-2-window] -- select that buffer in one window, together with buffer selected before this one in another window. \\[Buffer-menu-this-window] -- select that buffer in place of the buffer menu buffer. \\[Buffer-menu-other-window] -- select that buffer in another window, so the buffer menu buffer remains visible in its window. \\[Buffer-menu-switch-other-window] -- switch the other window to this buffer. \\[Buffer-menu-visit-tags-table] -- visit-tags-table this buffer. \\[Buffer-menu-not-modified] -- clear modified-flag on that buffer. \\[Buffer-menu-save] -- mark that buffer to be saved, and move down. \\[Buffer-menu-delete] -- mark that buffer to be deleted, and move down. \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted, and move up. \\[Buffer-menu-execute] -- delete or save marked buffers. \\[Buffer-menu-unmark] -- remove all kinds of marks from current line. With prefix argument, also move up one line. \\[Buffer-menu-backup-unmark] -- back up a line and remove marks. \\[Buffer-menu-toggle-read-only] -- toggle read-only status of buffer on this line."]) (byte-code "!!‡" [boundp Buffer-menu-buffer-column nil Buffer-menu-size-column] 2) (defalias 'Buffer-menu-buffer #[(error-if-non-existent-p) "eb!!i!!i)!!`  !! `\"  !MM \"+" [Buffer-menu-buffer-column search-forward "Buffer" backward-word 1 "Size" Buffer-menu-size-column forward-line 0 forward-char nil string start re-search-forward " \\| " skip-chars-backward " " buffer-substring get-buffer error-if-non-existent-p error "No buffer named \"%s\""] 3 "\ Return buffer described by this line of buffer menu."]) (defalias 'buffer-menu #[(&optional arg) " !!!!" [list-buffers arg pop-to-buffer "*Buffer List*" forward-line 2 message "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."] 2 "\ Make a menu of buffers so you can save, delete or select them. With argument, show only buffers that are visiting files. Type ? after invocation to get help on commands available. Type q immediately to make the buffer menu go away and to restore previous window configuration." "P"]) (defalias 'Buffer-menu-quit #[nil "p !!)" [buffer switch-to-buffer other-buffer bury-buffer] 2 "\ Quit the buffer menu." nil]) (defalias 'Buffer-menu-mark #[nil "!! !c!)" [forward-line 0 looking-at " [-M]" ding nil buffer-read-only delete-char 1 62] 2 "\ Mark buffer on this line for being displayed by \\\\[Buffer-menu-select] command." nil]) (defalias 'Buffer-menu-unmark #[(&optional backup) "!! K!! q\n) \n! > :ςHЂH GтHc,UԂV!" [forward-line 0 looking-at " [-M]" ding Buffer-menu-buffer t buf buffer-modified-p mod buffer-read-only readonly nil delete-char 3 " *%" " %" " * " " " backup -1 1] 2 "\ Cancel all requested operations on buffer on this line and move down. Optional ARG means move up." "P"]) (defalias 'Buffer-menu-backup-unmark #[nil "! !" [forward-line -1 Buffer-menu-unmark] 2 "\ Move up and cancel all requested operations on buffer on line above." nil]) (defalias 'Buffer-menu-delete #[nil "!! !c!)" [forward-line 0 looking-at " [-M]" ding nil buffer-read-only delete-char 1 68] 2 "\ Mark buffer on this line to be deleted by \\\\[Buffer-menu-execute] command." nil]) (defalias 'Buffer-menu-delete-backwards #[nil " !!!" [Buffer-menu-delete forward-line -2 looking-at " [-M]" 1] 2 "\ Mark buffer on this line to be deleted by \\\\[Buffer-menu-execute] command and then move up one line" nil]) (defalias 'Buffer-menu-save #[nil "!!! !c!)" [forward-line 0 forward-char 1 looking-at " [-M]" ding nil buffer-read-only delete-char 83] 2 "\ Mark buffer on this line to be saved by \\\\[Buffer-menu-execute] command." nil]) (defalias 'Buffer-menu-not-modified #[nil "!q!)!!!$\n!c))" [Buffer-menu-buffer t set-buffer-modified-p nil forward-line 0 forward-char 1 looking-at "\\*" buffer-read-only delete-char 32] 2 "\ Mark buffer on this line as unmodified (no changes to save)." nil]) (defalias 'Buffer-menu-execute #[nil "eb!#8!q )\n!1͂2c*)eb!p\n#!!=m=m!))!~!cG`!`\"!G+" [forward-line 1 re-search-forward "^.S" nil t modp Buffer-menu-buffer save-buffer buffer-modified-p buffer-read-only delete-char -1 42 32 buff-menu-buffer search-forward "\nD" forward-char buf kill-buffer delete-region] 5 "\ Save and/or delete buffers marked with \\\\[Buffer-menu-save] or \\\\[Buffer-menu-delete] commands." nil]) (defalias 'Buffer-menu-select #[nil "!p‰eb#9! !c) = > B ! S GT\" ! =Y ! G\"h! \"! @! Al!," [Buffer-menu-buffer t nil tem others menu buff search-forward "\n>" buffer-read-only delete-char -1 32 nreverse / frame-height delete-other-windows switch-to-buffer bury-buffer equal 0 split-window other-window 1] 5 "\ Select this line's buffer; also display buffers marked with `>'. You can mark buffers with the \\\\[Buffer-menu-mark] command." nil]) (defalias 'Buffer-menu-visit-tags-table #[nil "!! !!)" [buffer-file-name Buffer-menu-buffer t file visit-tags-table error "Specified buffer has no file"] 4 "\ Visit the tags table in the buffer on this line. See `visit-tags-table'." nil]) (defalias 'Buffer-menu-1-window #[nil "!! ! " [switch-to-buffer Buffer-menu-buffer t bury-buffer other-buffer delete-other-windows] 3 "\ Select this line's buffer, alone, in full frame." nil]) (defalias 'Buffer-menu-this-window #[nil "!!" [switch-to-buffer Buffer-menu-buffer t] 3 "\ Select this line's buffer in this window." nil]) (defalias 'Buffer-menu-other-window #[nil "!!" [switch-to-buffer-other-window Buffer-menu-buffer t] 3 "\ Select this line's buffer in other window, leaving buffer menu visible." nil]) (defalias 'Buffer-menu-switch-other-window #[nil "!!" [display-buffer Buffer-menu-buffer t] 3 "\ Make the other window select this line's buffer. The current window remains selected." nil]) (defalias 'Buffer-menu-2-window #[nil "!p ! ! !+" [Buffer-menu-buffer t pop-up-windows menu buff delete-other-windows switch-to-buffer other-buffer pop-to-buffer bury-buffer] 3 "\ Select this line's buffer, with previous buffer in second window." nil]) (defalias 'Buffer-menu-toggle-read-only #[nil "!q Ƃ)!!g U?/! c)*" [nil char Buffer-menu-buffer t toggle-read-only buffer-read-only 37 32 forward-line 0 forward-char 2 delete-char 1] 2 "\ Toggle read-only status of buffer on this line." nil])