;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Thu Jul 28 09:12:33 1994 ;;; from file /home/fsf/rms/e19/lisp/buff-menu.el ;;; emacs version 19.25.90.2. ;;; 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 "`/home/fsf/rms/e19/lisp/buff-menu.el' was compiled for Emacs 19")) (byte-code "!‡" [boundp Buffer-menu-buffer-column nil] 2) (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 "g" revert-buffer [mouse-2] Buffer-menu-mouse-select put Buffer-menu-mode mode-class special] 4) (defalias 'Buffer-menu-mode #[nil " \n!eb!!i ym8 @A$)y)!!" [kill-all-local-variables use-local-map Buffer-menu-mode-map Buffer-menu-mode major-mode "Buffer Menu" mode-name search-forward "Buffer" backward-word 1 Buffer-menu-buffer-column 2 Buffer-menu-buffer-name-position where put-text-property mouse-face highlight make-local-variable revert-buffer-function Buffer-menu-revert-function t truncate-lines buffer-read-only run-hooks buffer-menu-mode-hook] 5 "\ 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-mouse-select] -- select buffer you click on, in place of the buffer menu. \\[Buffer-menu-this-window] -- select current line's buffer in place of the buffer menu. \\[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] -- make another window display that buffer. \\[Buffer-menu-mark] -- mark current line's buffer to be displayed. \\[Buffer-menu-select] -- select current line's buffer. 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-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."]) (defalias (quote Buffer-menu-revert-function) #[(ignore1 ignore2) " " [list-buffers] 1]) (defalias 'Buffer-menu-buffer #[(error-if-non-existent-p) " @ A{\n!\f\n\"*" [Buffer-menu-buffer-name-position where string get-buffer error-if-non-existent-p error "No buffer named \"%s\""] 4 "\ Return buffer described by this line of buffer menu."]) (defalias (quote Buffer-menu-buffer-name-position) #[nil "y u`!x\n`*B" [0 Buffer-menu-buffer-column start re-search-forward " \\| " " " nil] 2]) (defalias 'buffer-menu #[(&optional arg) " !q`)! b)!" [list-buffers arg "*Buffer List*" newpoint pop-to-buffer 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 "y!\f !cy)" [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) "y! J!!q )\n !\n=9΂GςGFЂGc,SӂTy" [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 "y y" [-1 Buffer-menu-unmark] 1 "\ Move up and cancel all requested operations on buffer on line above." nil]) (defalias 'Buffer-menu-delete #[nil "y!\f !cy)" [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 " y!y" [Buffer-menu-delete -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 "yu! !cy)" [0 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 #[(&optional arg) "!q !)yu`f ƂU3 ! 0ǂ1c))" [Buffer-menu-buffer t set-buffer-modified-p arg 0 1 32 42 nil buffer-read-only delete-char] 2 "\ Mark buffer on this line as unmodified (no changes to save)." "P"]) (defalias 'Buffer-menu-execute #[nil "eby#4!q ) ! -̂.c*)ebyp #u!=g=g!))!x!cB`y`|uB+" [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" buf kill-buffer] 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) = \f> \fB\f S\fGT ! =W !\fGњe!\f~ \"!\f@!\fAi!," [Buffer-menu-buffer t nil tem others menu buff search-forward "\n>" buffer-read-only delete-char -1 32 frame-height delete-other-windows switch-to-buffer bury-buffer 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-mouse-select #[(event) "  8:Ă 8)@)!q  8:+Ă, 8)A@:@A@@DA@)b!*  8:ZĂ[ 8)@)! !z =z !} !)" [nil buffer window-buffer event 2 1 position Buffer-menu-buffer t select-window window-dedicated-p selected-window frame-root-window switch-to-buffer-other-frame switch-to-buffer] 4 "\ Select the buffer whose line you click on." "e"]) (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 !\f! !+" [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 Ƃ)yug U?-! c)*" [nil char Buffer-menu-buffer t vc-toggle-read-only buffer-read-only 37 32 0 2 delete-char 1] 2 "\ Toggle read-only status of buffer on this line, perhaps via version control." nil])