;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:33 2007 ;;; from file /home/cyd/emacs/lisp/buff-menu.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`buff-menu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'Buffer-menu nil "Show a menu of all buffers in a buffer." :group 'tools :group 'convenience) #@49 *Non-nil means to use an immovable header-line. (custom-declare-variable 'Buffer-menu-use-header-line 't '(#$ . -681) :type 'boolean :group 'Buffer-menu) (byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\207" [custom-declare-face buffer-menu-buffer ((t (:weight bold))) "Face used to highlight buffer names in the buffer menu." :group Buffer-menu put Buffer-menu-buffer face-alias] 6) #@61 *How wide to jointly make the buffer name and size columns. (custom-declare-variable 'Buffer-menu-buffer+size-width '26 '(#$ . -1081) :type 'number :group 'Buffer-menu) #@41 *How wide to make the mode name column. (custom-declare-variable 'Buffer-menu-mode-width '16 '(#$ . -1256) :type 'number :group 'Buffer-menu) #@294 If non-nil, the Buffer Menu uses the selected frame's buffer list. Buffers that were never selected in that frame are listed at the end. If the value is nil, the Buffer Menu uses the global buffer list. This variable matters if the Buffer Menu is sorted by visited order, as it is by default. (custom-declare-variable 'Buffer-menu-use-frame-buffer-list 't '(#$ . 1405) :type 'boolean :group 'Buffer-menu :version "22.1") #@104 2 for sorting by buffer names. 5 for sorting by file names. nil for default sorting by visited order. (defvar Buffer-menu-sort-column nil (#$ . 1833)) (byte-code "\301B\302\303!\207" [current-load-list Buffer-menu-buffer-column (lambda (#1=#:defconst-tmp-var) (defconst Buffer-menu-buffer-column #1#)) 4] 2) #@46 Local keymap for `Buffer-menu-mode' buffers. (defvar Buffer-menu-mode-map nil (#$ . 2150)) #@209 Non-nil if the current buffer-menu lists only file buffers. This variable determines whether reverting the buffer lists only file buffers. It affects both manual reverting and reverting by Auto Revert Mode. (defvar Buffer-menu-files-only nil (#$ . 2248)) (byte-code "\301\302!\210\204\312\303 \304\305\"\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\320#\210\306\322\320#\210\306\323\324#\210\306\325\326#\210\306\327\330#\210\306\331\332#\210\306\333\332#\210\306\334\335#\210\306\336\332#\210\306\337\340#\210\306\341\342#\210\306\343\342#\210\306\344\345#\210\306\346\347#\210\306\350\351#\210\306\352\353#\210\306\354\355#\210\306\356\357#\210\306\360\361#\210\306\362\363#\210\306\364\365#\210\306\366\367#\210\306\370\371#\210\306\372\373#\210\306\374\375#\210\306\376\377#\210\201@\201A\201B\201C#\207" [Buffer-menu-mode-map make-variable-buffer-local Buffer-menu-files-only make-keymap suppress-keymap t define-key "q" quit-window "v" Buffer-menu-select "2" Buffer-menu-2-window "1" Buffer-menu-1-window "f" Buffer-menu-this-window "e" " " "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 "b" Buffer-menu-bury "g" Buffer-menu-revert "V" Buffer-menu-view "T" Buffer-menu-toggle-files-only [mouse-2] Buffer-menu-mouse-select [follow-link] mouse-face put Buffer-menu-mode mode-class special] 4) #@1968 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-view] -- select current line's buffer, but in view-mode. \[Buffer-menu-view-other-window] -- select that buffer in another window, in view-mode. \[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. \[Buffer-menu-revert] -- update the list of buffers. \[Buffer-menu-toggle-files-only] -- toggle whether the menu displays only file buffers. \[Buffer-menu-bury] -- bury the buffer listed on this line. (defalias 'Buffer-menu-mode #[nil "\306 \210\307!\210\310\311\312\303!\210\313\312\304!\210\314\315\211\316\317!\207" [Buffer-menu-mode-map major-mode mode-name revert-buffer-function buffer-stale-function truncate-lines kill-all-local-variables use-local-map Buffer-menu-mode "Buffer Menu" make-local-variable Buffer-menu-revert-function #[(&optional noconfirm) "\300\207" [fast] 1] t run-mode-hooks buffer-menu-mode-hook buffer-read-only] 3 (#$ . 3995)]) #@29 Update the list of buffers. (defalias 'Buffer-menu-revert #[nil "\300 \207" [revert-buffer] 1 (#$ . 6433) nil]) (defalias 'Buffer-menu-revert-function #[(ignore1 ignore2) "\306=\204\307`mi\310\311!\210\312`\313\"e\306r\314 q\210\315!\210)\n\203F\316 \313\"\211\205P\312 \313\"\n=\203* b\210\310 !\210\202*\f\203Nd\202O b.\207" [buffer-undo-list prop oline ocol eobp opoint t nil move-to-column 4 get-text-property buffer window-buffer list-buffers-noselect next-single-property-change Buffer-menu-files-only] 6]) #@174 Toggle whether the current buffer-menu displays only file buffers. With a positive ARG display only file buffers. With zero or negative ARG, display other buffers as well. (defalias 'Buffer-menu-toggle-files-only #[(arg) "\204 ?\202\302!\303V\205\304\305 \207" [arg Buffer-menu-files-only prefix-numeric-value 0 t revert-buffer] 2 (#$ . 6973) "P"]) #@54 Return buffer described by this line of buffer menu. (defalias 'Buffer-menu-buffer #[(error-if-non-existent-p) "\212\305 \210`\\)m?\205\306 \307\"m?\205\306 \310\"\n\203@\311\n!\206U \2035\307 !\2035 \206U\f\205U\312\313\n\"\202U \203N\307 !\203N \206U\f\205U\312\314!+\207" [Buffer-menu-buffer-column where name buf error-if-non-existent-p beginning-of-line get-text-property buffer-name buffer get-buffer error "No buffer named `%s'" "No buffer on this line"] 3 (#$ . 7338)]) #@683 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 to remove the buffer menu from the display. The first column shows `>' for a buffer you have marked to be displayed, `D' for one you have marked for deletion, and `.' for the current buffer. The C column has a `.' for the buffer from which you came. The R column has a `%' if the buffer is read-only. The M column has a `*' if it is modified, or `S' if you have marked it for saving. After this come the buffer name, its size in characters, its major mode, and the visited file name (if any). (defalias 'buffer-menu #[(&optional arg) "\301\302!!\210\303\304!\207" [arg switch-to-buffer list-buffers-noselect message "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."] 3 (#$ . 7842) "P"]) #@341 Display a list of buffers in another window. With the buffer list buffer, you can save, delete or select the buffers. With argument, show only buffers that are visiting files. Type ? after invocation to get help on commands available. Type q to remove the buffer menu from the display. For more information, see the function `buffer-menu'. (defalias 'buffer-menu-other-window #[(&optional arg) "\301\302!!\210\303\304!\207" [arg switch-to-buffer-other-window list-buffers-noselect message "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."] 3 (#$ . 8748) "P"]) (defalias 'Buffer-menu-no-header #[nil "\301 \210\204\302f\303=\204\304\207\305 \210\306y\210\302\207" [Buffer-menu-use-header-line beginning-of-line nil 67 t ding 1] 2]) #@103 Mark buffer on this line for being displayed by \\[Buffer-menu-select] command. (defalias 'Buffer-menu-mark #[nil "\301 \205\302\303\304!\210\305c\210\304y)\207" [buffer-read-only Buffer-menu-no-header nil delete-char 1 62] 2 (#$ . 9514) nil]) #@106 Cancel all requested operations on buffer on this line and move down. Optional prefix arg means move up. (defalias 'Buffer-menu-unmark #[(&optional backup) "\305 \2036\306\307!\310!\212q\210\n)\311\312\313!\210 \203* \203&\314\2023\315\2023 \2032\316\2023\317c\210,\f\203>\320\202?\321y\207" [buf mod buffer-read-only readonly backup Buffer-menu-no-header Buffer-menu-buffer t buffer-modified-p nil delete-char 3 " %*" " % " " *" " " -1 1] 2 (#$ . 9790) "P"]) #@70 Move up and cancel all requested operations on buffer on line above. (defalias 'Buffer-menu-backup-unmark #[nil "\300y\210\301 \210\300y\207" [-1 Buffer-menu-unmark] 1 (#$ . 10274) nil]) #@177 Mark buffer on this line to be deleted by \\[Buffer-menu-execute] command. Prefix arg is how many buffers to delete. Negative arg means delete backwards. (defalias 'Buffer-menu-delete #[(&optional arg) "\302 \205G\303 \203 \304U\203\305 \304V\203*\306\305!\210\307c\210\305y\210 S\211\202 \304W\205F\302 \205F\306\305!\210\307c\210\310y\210 T\211\202+)\207" [buffer-read-only arg Buffer-menu-no-header nil 0 1 delete-char 68 -1] 3 (#$ . 10468) "p"]) #@164 Mark buffer on this line to be deleted by \\[Buffer-menu-execute] command and then move up one line. Prefix arg means move that many lines. (defalias 'Buffer-menu-delete-backwards #[(&optional arg) "\301\206\302[!\207" [arg Buffer-menu-delete 1] 2 (#$ . 10962) "p"]) #@96 Mark buffer on this line to be saved by \\[Buffer-menu-execute] command. (defalias 'Buffer-menu-save #[nil "\301 \205\302\303u\210\304\305!\210\306c\210\305y)\207" [buffer-read-only Buffer-menu-no-header nil 2 delete-char 1 83] 2 (#$ . 11261) nil]) #@62 Mark buffer on this line as unmodified (no changes to save). (defalias 'Buffer-menu-not-modified #[(&optional arg) "\212\302\303!q\210\304!\210)\212\305 \210\306u\210\307f\203\310\202\311U\2052\307\312\313!\210\203/\311\2020\310c))\207" [arg buffer-read-only Buffer-menu-buffer t set-buffer-modified-p beginning-of-line 2 nil 32 42 delete-char 1] 2 (#$ . 11541) "P"]) (defalias 'Buffer-menu-beginning #[nil "eb\210?\205\n\301y\207" [Buffer-menu-use-header-line nil] 1]) #@141 Save and/or delete buffers marked with \\[Buffer-menu-save] or \\[Buffer-menu-delete] commands. (defalias 'Buffer-menu-execute #[nil "\212\304 \210\305\306\307\310#\2030\307\212\311\310!q\210\312 \210\313 )\307\314\315!\210\203)\316\202*\317c\210*\202)\212\304 \210p\307\305\320\307\310#\205\200\315u\210\311\307!\211\307=\204Z \n=\204Z\212\321 !\210) \203n\322 !\203n\314\323!\210\317c\210\202|`\323y\210`|\210o\204|\315u\210)\2029+\207" [modp buffer-read-only buff-menu-buffer buf Buffer-menu-beginning re-search-forward "^..S" nil t Buffer-menu-buffer save-buffer buffer-modified-p delete-char -1 42 32 "^D" kill-buffer buffer-name 1] 5 (#$ . 12031) nil]) #@241 Select this line's buffer; also display buffers marked with `>'. You can mark buffers with the \\[Buffer-menu-mark] command. This command deletes and replaces all the previously existing windows in the selected frame. (defalias 'Buffer-menu-select #[nil "\305\306!p\307\211\310 \210\311\312\307\306#\2036\305\306!\307\313\314!\210\315c\210) =\204  >\204  B\202 \237\316 S GT\245\317 \210\320 !\210\n =\204R\321\n!\210 G\322\232\203_\320 !\202{ \203x\323\307\"\210\324\325!\210\320 @!\210 A\211\204c\324\325!,\207" [tem others menu buff buffer-read-only Buffer-menu-buffer t nil Buffer-menu-beginning re-search-forward "^>" delete-char -1 32 frame-height delete-other-windows switch-to-buffer bury-buffer 0 split-window other-window 1] 5 (#$ . 12761) nil]) #@75 Visit the tags table in the buffer on this line. See `visit-tags-table'. (defalias 'Buffer-menu-visit-tags-table #[nil "\301\302\303!!\211\203\304!\202\305\306!)\207" [file buffer-file-name Buffer-menu-buffer t visit-tags-table error "Specified buffer has no file"] 4 (#$ . 13569) nil]) #@50 Select this line's buffer, alone, in full frame. (defalias 'Buffer-menu-1-window #[nil "\300\301\302!!\210\303\304 !\210\305 \207" [switch-to-buffer Buffer-menu-buffer t bury-buffer other-buffer delete-other-windows] 3 (#$ . 13869) nil]) #@44 Select the buffer whose line you click on. (defalias 'Buffer-menu-mouse-select #[(event) "\303\212\304 \211:\203\305 8:\203\305\202\306 8\202\"\307 `\310\311F)\311\n8)!q\210\212 \211:\203D\305 8:\203>\305\202?\306 8\202J\307 `\310\311F)\312\n8\206c\306\n8:\203`\306\n8@\202c\306\n8)b\210\313\314!*\315 \211:\203\204\305 8:\203~\305\202\306 8\202\212\307 `\310\311F)\311\n8)!\210\316\307 !\203\247\307 \317 =\203\247\320!\202\252\321!)\207" [buffer event position nil window-buffer 2 1 selected-window (0 . 0) 0 5 Buffer-menu-buffer t select-window window-dedicated-p frame-root-window switch-to-buffer-other-frame switch-to-buffer] 6 (#$ . 14113) "e"]) #@43 Select this line's buffer in this window. (defalias 'Buffer-menu-this-window #[nil "\300\301\302!!\207" [switch-to-buffer Buffer-menu-buffer t] 3 (#$ . 14804) nil]) #@73 Select this line's buffer in other window, leaving buffer menu visible. (defalias 'Buffer-menu-other-window #[nil "\300\301\302!!\207" [switch-to-buffer-other-window Buffer-menu-buffer t] 3 (#$ . 14975) nil]) #@87 Make the other window select this line's buffer. The current window remains selected. (defalias 'Buffer-menu-switch-other-window #[nil "\303\304\211\305\306\303!!+\207" [same-window-regexps same-window-buffer-names pop-up-windows t nil display-buffer Buffer-menu-buffer] 3 (#$ . 15190) nil]) #@67 Select this line's buffer, with previous buffer in second window. (defalias 'Buffer-menu-2-window #[nil "\305\306!p\306\307\211\310 \210\311\312 !\210\313\f!\210\314 !-\207" [same-window-regexps same-window-buffer-names pop-up-windows menu buff Buffer-menu-buffer t nil delete-other-windows switch-to-buffer other-buffer pop-to-buffer bury-buffer] 5 (#$ . 15491) nil]) #@78 Toggle read-only status of buffer on this line, perhaps via version control. (defalias 'Buffer-menu-toggle-read-only #[nil "\302\212\303\304!q\210\305 \210 \203\306\202\307)\212\310 \210\311u\210gU?\205-\302\312\311!\210c)*\207" [char buffer-read-only nil Buffer-menu-buffer t vc-toggle-read-only 37 32 beginning-of-line 1 delete-char] 2 (#$ . 15871) nil]) #@38 Bury the buffer listed on this line. (defalias 'Buffer-menu-bury #[nil "\302 \205*\212\303 \210\304\305\306!!\210`\307y\210`{\310`\311y\210`|\210db\210 c\210*\312\313!)\207" [buffer-read-only line Buffer-menu-no-header beginning-of-line bury-buffer Buffer-menu-buffer t 1 nil -1 message "Buried buffer moved to the end"] 3 (#$ . 16244) nil]) #@39 View this line's buffer in View mode. (defalias 'Buffer-menu-view #[nil "\300\301\302!!\207" [view-buffer Buffer-menu-buffer t] 3 (#$ . 16595) nil]) #@57 View this line's buffer in View mode in another window. (defalias 'Buffer-menu-view-other-window #[nil "\300\301\302!!\207" [view-buffer-other-window Buffer-menu-buffer t] 3 (#$ . 16750) nil]) (define-key ctl-x-map "" 'list-buffers) #@287 Display a list of names of existing buffers. The list is displayed in a buffer named `*Buffer List*'. Note that buffers with names starting with spaces are omitted. Non-null optional arg FILES-ONLY means mention only file buffers. For more information, see the function `buffer-menu'. (defalias 'list-buffers #[(&optional files-only) "\301\302!!\207" [files-only display-buffer list-buffers-noselect] 3 (#$ . 16991) "P"]) (defalias 'Buffer-menu-buffer+size #[(name size &optional name-props size-props) "G G\\\305\\\nV\203?\306\307\"\203.\310\n G\311]Z\310\225Z\310\224[Z\305ZO\312\313\310\"Q\202;\310\n G\311]Z\305ZO\312P\202C\314!\315\310G $\210\315\310 G\f $\210\316\nGZ GZ\317\" Q\207" [name size Buffer-menu-buffer+size-width name-props size-props 2 string-match "<[0-9]+>$" 0 3 ":" match-string copy-sequence add-text-properties make-string 32] 5]) #@33 Sort the buffer menu by COLUMN. (defalias 'Buffer-menu-sort #[(column) "\203\306!\211\307W\203\307\310V\203\310\311\211\211\211\211\212\312 \210m\204g\313\314`\315\\\316\"\211!\203a\311f\211\317>\205D `\307\\f\211\320=\205Q\n \204Z\n\203a\f \nE B\311y\210\202))\321 \210\311\212\312 \210m?\205\267\314`\315\\\316\" \236\211\203\261\f\211A@)\fA\211A@) \203\243\322\323!\210 c\210\324u\210\n\203\261\307u\210\322\323!\210\nc\210\311y\210\202r.\207" [column Buffer-menu-sort-column m2 m1 buf l prefix-numeric-value 2 5 nil Buffer-menu-beginning buffer-live-p get-text-property 4 buffer (62 68) 83 Buffer-menu-revert delete-char 1 -1 buffer-read-only x] 6 (#$ . 17870) "P"]) #@48 Sort the buffer menu by the column clicked on. (defalias 'Buffer-menu-sort-by-column #[(&optional e) "\203\306!\210\211:\203\307 8\202\310 `\311\312F)\211\313 !\206(\314 !)\211\2038\315\fA\316\f@#\202U\315\n\317 8\206R\307 8:\203O\307 8@\202R\307 8)\316\"\320 !+\207" [e event pos position obj col mouse-select-window 1 selected-window (0 . 0) 0 posn-image posn-string get-text-property column 5 Buffer-menu-sort] 5 (#$ . 18595) (list last-input-event)]) #@44 Local keymap for Buffer menu sort buttons. (defvar Buffer-menu-sort-button-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\304#\210)\207" [map make-sparse-keymap define-key [header-line mouse-1] Buffer-menu-sort-by-column [header-line mouse-2] [mouse-2] [follow-link] mouse-face " "] 4) (#$ . 19077)) (defalias 'Buffer-menu-make-sort-button #[(name column) " \232\203\305\306\n\300\307 \203\310\202\311\203\n\227\202 \312P\313\314\315\f& \207" [column Buffer-menu-sort-column name Buffer-menu-use-header-line Buffer-menu-sort-button-map nil propertize help-echo "mouse-1, mouse-2: sort by " "mouse-2, RET: sort by " "visited order" mouse-face highlight keymap] 10]) #@394 Create and return a buffer with a list of names of existing buffers. The buffer is named `*Buffer List*'. Note that buffers with names starting with spaces are omitted. Non-null optional arg FILES-ONLY means mention only file buffers. If BUFFER-LIST is non-nil, it should be a list of buffers; it means list those buffers and no others. For more information, see the function `buffer-menu'. (defalias 'list-buffers-noselect #[(&optional files-only buffer-list) "p \306\n\307Z\310\"\311\312\313\314\307\"\313\315\316\"\"\317\313\320\321\" \313\322\323\"\324\260\325\211@A\203`\326B\327\330\fB#\203O\326\225B\331\326\224B\332\333\334BE\f%\210\2021)\331\326\316\335\336\f%\210\337\340\332\341#\fPr\342\343!q\210\325C\344 \210pA\204\214\345\346!\203}\346\202~\347D\f\350\351\352\353\f\"\"\261\210),\206\232\354E\205\231\355 !\325F\211G\203\256G@FrFq\210\356 HIJ,\204\332J\326\357O\340\230\203\311I\203\244K\203\323I\203\244J\343\230\204\244\360L\325\211F$M\205\357\360M\325\211F$P\351F=\203\374\361\202\375\310F =\204 C\203 \362\202\310\363 \203\364\202\310\310$NOI\204\220\365\366!\20356\20356I\202\220P\367=\203\220Q\211I\370\232\203L\371I\202\220I\372=\203Y\373I\202\220I\374=\203f\375I\202\220I\376=\203s\377I\202\220I;\204\325I\202\220\201Z\201[I!\201\\RRIFNJ\201] OI\257 B*+GA\211G\204\243* \237S\203\317\201^ S\316=\203\310\201_\202\313\201`\"\202\320 \325F\211T\203^T@\211F@=\203\350`@F\211UA@)\312\307F8\201a\316F8!\356\307F8\201FF@\201bBBBB#\317\321F8G\nV\203%\321F8\326\nO\202)\321F8\261\210\323F8\203O\201cVW\\\n\\\321\\\357\"\210\201d\201e\323F8!!\210\201d\324!\210TA\211T\204\331*\201f \210A\203l\fX@\203u@b\210KY\201g\325!\210p.\207" [old-buffer standard-output Buffer-menu-mode-width mode-end header list make-string 2 32 "CRM " Buffer-menu-buffer+size Buffer-menu-make-sort-button "Buffer" "Size" 3 " " "Mode" 4 "File" 5 "\n" nil 0 string-match "[ \n]+" put-text-property display space :align-to face fixed-pitch propertize " " (space :align-to 0) get-buffer-create "*Buffer List*" erase-buffer char-displayable-p 342388 45 apply string mapcar #[(c) "\302>\203\207 \207" [c underline (10 32)] 2] buffer-list selected-frame buffer-name 1 format-mode-line 46 37 buffer-modified-p 42 boundp list-buffers-directory Info-mode "dir" "*Info Directory*" apropos "*Info Apropos*" history "*Info History*" toc "*Info TOC*" desired-point Buffer-menu-use-header-line pos buffer-read-only underline Buffer-menu-use-frame-buffer-list buffer #1=#:--cl-dolist-temp-- buffer-file-name file name files-only mode-name mode-line-process bits mode major-mode Info-current-file Info-current-node Buffer-menu-sort-column #2=#:--cl-dolist-temp-- x Buffer-menu-buffer-column Buffer-menu-buffer+size-width header-line-format Buffer-menu-files-only "(" file-name-nondirectory ")" buffer-size sort #[(a b) " 8\n8W\207" [Buffer-menu-sort-column a b] 3] #[(a b) " 8\n8\231\207" [Buffer-menu-sort-column a b] 3] int-to-string (font-lock-face buffer-menu-buffer mouse-face highlight help-echo "mouse-2: select this buffer") indent-to princ abbreviate-file-name Buffer-menu-mode set-buffer-modified-p] 11 (#$ . 19820)])