;ELC ;;; compiled by jwz@thalidomide on Sat Nov 13 17:58:23 1993 ;;; from file /th/jwz/emacs19/lisp/packages/buff-menu.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.20; 20-oct-93. ;;; 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 "This file was compiled for Emacs 19.")) (defvar Buffer-menu-mode-map nil "\ ") (byte-code " \"\"#####################" [Buffer-menu-mode-map make-keymap suppress-keymap t set-keymap-name define-key "q" Buffer-menu-select "2" Buffer-menu-2-window "1" Buffer-menu-1-window "f" Buffer-menu-this-window "o" Buffer-menu-other-window "s" Buffer-menu-save "d" Buffer-menu-delete "k" "" Buffer-menu-delete-backwards " " "x" Buffer-menu-execute " " next-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 button2 Buffer-menu-mouse-select button3 Buffer-menu-popup-menu put Buffer-menu-mode mode-class special] 4) (fset '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 require mode-motion mode-motion-highlight-line mode-motion-hook 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. m -- mark buffer to be displayed. q -- select buffer of line point is on. Also show buffers marked with m in other windows. 1 -- select that buffer in full-screen window. 2 -- select that buffer in one window, together with buffer selected before this one in another window. f -- select that buffer in place of the buffer menu buffer. o -- select that buffer in another window, so the buffer menu buffer remains visible in its window. t -- visit-tags-table this buffer. ~ -- clear modified-flag on that buffer. s -- mark that buffer to be saved, and move down. d or k -- mark that buffer to be deleted, and move down. C-d -- mark that buffer to be deleted, and move up. x -- delete or save marked buffers. u -- remove all kinds of marks from current line. Delete -- back up a line and remove marks. Precisely,\\{Buffer-menu-mode-map}"]) (byte-code "!" [boundp Buffer-menu-buffer-column 4] 2) (fset 'Buffer-menu-buffer #[(error-if-non-existent-p) "y u`hU!x\n`{!p!  !  \"+" [0 Buffer-menu-buffer-column start 34 re-search-forward " \\| " " " nil backward-char 1 read string get-buffer error-if-non-existent-p error "No buffer named \"%s\""] 3 "\ Return buffer described by this line of buffer menu."]) (byte-code "!P!" [boundp list-buffers-header-line purecopy " MR Buffer Size Mode File\n" " -- ------ ---- ---- ----\n"] 3) (defvar list-buffers-identification 'default-list-buffers-identification "\ String used to identify this buffer, or a function of one argument to generate such a string. This variable is always buffer-local.") (byte-code "!!MM" [make-variable-buffer-local list-buffers-identification list-buffers-directory default-list-buffers-identification #[(output) "p!!\n ʼn \n   q`  !`\"` V bZZVcSq\"\nc ??iZV `Z]!\" c." [buffer-file-name boundp list-buffers-directory buffer-size mode-name nil col s p eob mode size file output prin1 move-to-column 19 t 6 0 32 indent-to 27 1 39 delete-char 40] 8] list-buffers-internal #[(output &optional predicate) "p  q  !c \n @  !  ! A ; \" ! q q \n=`ժc !تc٪c \" \") \n\";c q⏈ qdb*c,\n!?\nb+" [buffer-list buffers current output Buffer-menu-mode nil buffer-read-only buffer-disable-undo list-buffers-header-line 19 col1 buffer buffer-name name buffer-file-name file predicate string-match list-buffers-identification id ro 46 32 buffer-modified-p 42 37 "[\n\"\\ ]" t print-escape-newlines prin1 indent-to 1 e (funcall id output) ((error (byte-code "\n\" \n\"" [princ "***" output prin1 e] 3))) 10 bufferp] 3]] 2) (fset 'list-buffers #[(&optional files-only) "\n >Ū \")" ["*Buffer List*" list-buffers-internal standard-output files-only (t nil) #[(b) " !GU\nHUŪ !)" [buffer-name b n 0 32 nil files-only buffer-file-name t] 3]] 5 "\ Display a list of names of existing buffers. Inserts it in buffer *Buffer List* and displays that. Note that buffers with names starting with spaces are omitted. Non-null optional arg FILES-ONLY means mention only file buffers. The M column contains a * for buffers that are modified. The R column contains a % for buffers that are read-only." (byte-code "C" [current-prefix-arg t] 1)]) (fset 'buffer-menu #[(arg) " !!y!" [list-buffers arg pop-to-buffer "*Buffer List*" 2 message "Commands: d, s, x; 1, 2, m, u, q; delete; ~; ? 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." "P"]) (fset 'Buffer-menu-mark #[nil "y! !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]) (fset 'Buffer-menu-unmark #[nil "y! !!q )\n !\nΪϪЪc,y" [0 looking-at " [-M]" ding Buffer-menu-buffer t buf buffer-modified-p mod buffer-read-only readonly nil delete-char 3 " *%" " %" " * " " " 1] 2 "\ Cancel all requested operations on buffer on this line." nil]) (fset '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]) (fset 'Buffer-menu-delete #[nil "y! !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]) (fset '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]) (fset '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]) (fset 'Buffer-menu-not-modified #[nil "!q!)yu!!c))" [Buffer-menu-buffer t set-buffer-modified-p nil 0 1 looking-at "\\*" buffer-read-only delete-char 32] 2 "\ Mark buffer on this line as unmodified (no changes to save)." nil]) (fset 'Buffer-menu-execute #[nil "eby#!q ) ! ̪c*W)ebyp #u!==!))!!cO`y`|uC+" [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]) (fset 'Buffer-menu-select #[nil "!p‰eb#! !c) =d >_ BY  S GT ! = ! \"! @! Al!," [Buffer-menu-buffer t nil tem others menu buff search-forward "\n>" buffer-read-only delete-char -1 32 screen-height delete-other-windows switch-to-buffer bury-buffer 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]) (fset '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]) (fset 'Buffer-menu-1-window #[nil "!! ! p\"" [switch-to-buffer Buffer-menu-buffer t bury-buffer other-buffer delete-other-windows set-window-buffer selected-window] 3 "\ Select this line's buffer, alone, in full screen." nil]) (fset 'Buffer-menu-this-window #[nil "!!" [switch-to-buffer Buffer-menu-buffer t] 3 "\ Select this line's buffer in this window." nil]) (fset '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]) (fset 'Buffer-menu-2-window #[nil "!p ! ! !+" [Buffer-menu-buffer t pop-up-windows menu buff switch-to-buffer other-buffer pop-to-buffer bury-buffer] 3 "\ Select this line's buffer, with previous buffer in second window." nil]) (byte-code "M!M" [Buffer-menu-mouse-select #[(event) " ! " [mouse-set-point event Buffer-menu-select] 2 nil "e"] boundp Buffer-menu-popup-menu ("Buffer Commands" ["Select Buffer" Buffer-menu-select t] ["Select buffer Other Window" Buffer-menu-other-window t] ["Clear Buffer Modification Flag" Buffer-menu-not-modified t] "----" ["Mark Buffer for Selection" Buffer-menu-mark t] ["Mark Buffer for Save" Buffer-menu-save t] ["Mark Buffer for Deletion" Buffer-menu-delete t] ["Unmark Buffer" Buffer-menu-unmark t] "----" ["Delete/Save Marked Buffers" Buffer-menu-execute t]) #[(event) " !y!@ !QEA!!)" [mouse-set-point event 0 Buffer-menu-buffer nil buffer popup-menu Buffer-menu-popup-menu "Commands on buffer \"" buffer-name "\":" "----" error "no buffer on this line"] 6 nil "e"]] 2)