%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/buff-menu.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\207" [require tabulated-list custom-declare-group Buffer-menu nil "Show a menu of all buffers in a buffer." :group tools convenience] 8) #@40 The mark character for marked buffers. (defvar Buffer-menu-marker-char 62 (#$ . 605)) #@46 Character used to flag buffers for deletion. (defvar Buffer-menu-del-char 68 (#$ . 697)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315\310\311%\210\316\317\320\313#\210\300\321\302\303\322DD\323\306\324\310\311\325\326& \210\327\321\330\326#\210\300\331\302\303\332DD\333\306\334\310\311\325\326& \210\300\335\302\303\336DD\337\306\334\310\311\325\326& \210\300\340\302\303\341DD\342\306\334\310\311&\210\300\343\302\303\344DD\345\306\307\310\311\325\346& \207" [custom-declare-variable Buffer-menu-use-header-line funcall function #[0 "\300\207" [t] 1] "If non-nil, use the header line to display Buffer Menu column titles." :type boolean :group Buffer-menu custom-declare-face buffer-menu-buffer ((t (:weight bold))) "Face for buffer names in the Buffer Menu." put Buffer-menu-buffer face-alias Buffer-menu-buffer+size-width #[0 "\300\207" [nil] 1] "Combined width of buffer name and size columns in Buffer Menu.\nIf nil, use `Buffer-menu-name-width' and `Buffer-menu-size-width'.\n\nIf non-nil, the value of `Buffer-menu-name-width' is overridden;\nthe name column is assigned width `Buffer-menu-buffer+size-width'\nminus `Buffer-menu-size-width'. This use is deprecated." (choice (const nil) number) :version "24.3" make-obsolete-variable "use `Buffer-menu-name-width' and `Buffer-menu-size-width' instead." Buffer-menu-name-width #[0 "\300\207" [19] 1] "Width of buffer name column in the Buffer Menu." number Buffer-menu-size-width #[0 "\300\207" [7] 1] "Width of buffer size column in the Buffer Menu." Buffer-menu-mode-width #[0 "\300\207" [16] 1] "Width of mode name column in the Buffer Menu." Buffer-menu-use-frame-buffer-list #[0 "\300\207" [t] 1] "If non-nil, the Buffer Menu uses the selected frame's buffer list.\nBuffers that were never selected in that frame are listed at the end.\nIf the value is nil, the Buffer Menu uses the global buffer list.\nThis variable matters if the Buffer Menu is sorted by visited order,\nas it is by default." "22.1"] 10) #@135 Non-nil if the current Buffer Menu lists only file buffers. This is set by the prefix argument to `buffer-menu' and related commands. (defvar Buffer-menu-files-only nil (#$ . 2708)) (make-variable-buffer-local 'Buffer-menu-files-only) #@46 Local keymap for `Buffer-menu-mode' buffers. (defvar Buffer-menu-mode-map (byte-code "\302 \302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\314#\210\304\316\314#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\326#\210\304\330\326#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\304\363\364#\210\304\365\366#\210\304\367\370#\210\304\371\372#\210\304\373\374#\210\304\375\376#\210\304\377\201@ \201A !B#\210\201B \201C \201D #\210\201B \201E \201F #\210\201B \201G #\210\201B \201H \201I #\210\201B \201J #\210\201B \201K \201L #\210\201B \201M \201N #\210\201B \201O \201P #\210\201B \201Q \201R #\210\201B \201S \201T #\210\201B \201U #\210\201B \201V \201W #\210\201B \201X \201Y #\210\201B \201Z \201[ #\210\201B \201\\ #\210\201B \201] \201^ #\210\201B \201_ \201` #\210\201B \201a \201b #\210\201B \201c #\210\201B \201d \201e #\210\201B \201f \201g #\210\201B \201h \201i #\210\201B \201j \201k #\210\201B \201l \201m #\210\201B \201n \201o #\210\201B \201p \201q #\210\207" [tabulated-list-mode-map menu-bar-separator make-sparse-keymap set-keymap-parent define-key "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 "" Buffer-menu-backup-unmark "~" Buffer-menu-not-modified "u" Buffer-menu-unmark "\377" Buffer-menu-unmark-all-buffers "U" Buffer-menu-unmark-all "m" Buffer-menu-mark "t" Buffer-menu-visit-tags-table "%" Buffer-menu-toggle-read-only "b" Buffer-menu-bury "V" Buffer-menu-view "T" Buffer-menu-toggle-files-only [134217843 97 19] Buffer-menu-isearch-buffers [134217843 97 134217747] Buffer-menu-isearch-buffers-regexp [134217843 97 15] Buffer-menu-multi-occur [mouse-2] Buffer-menu-mouse-select [follow-link] mouse-face [menu-bar Buffer-menu-mode] purecopy "Buffer-Menu" bindings--define-key [quit] (menu-item "Quit" quit-window :help "Remove the buffer menu from the display") [rev] (menu-item "Refresh" revert-buffer :help "Refresh the *Buffer List* buffer contents") [s0] [tf] (menu-item "Show Only File Buffers" Buffer-menu-toggle-files-only :button (:toggle . Buffer-menu-files-only) :help "Toggle whether the current buffer-menu displays only file buffers") [s1] [sel] (menu-item "Select Marked" Buffer-menu-select :help "Select this line's buffer; also display buffers marked with `>'") [bm2] (menu-item "Select Two" Buffer-menu-2-window :help "Select this line's buffer, with previous buffer in second window") [bm1] (menu-item "Select Current" Buffer-menu-1-window :help "Select this line's buffer, alone, in full frame") [ow] (menu-item "Select in Other Window" Buffer-menu-other-window :help "Select this line's buffer in other window, leaving buffer menu visible") [tw] (menu-item "Select in Current Window" Buffer-menu-this-window :help "Select this line's buffer in this window") [s2] [is] (menu-item "Regexp Isearch Marked Buffers..." Buffer-menu-isearch-buffers-regexp :help "Search for a regexp through all marked buffers using Isearch") [ir] (menu-item "Isearch Marked Buffers..." Buffer-menu-isearch-buffers :help "Search for a string through all marked buffers using Isearch") [mo] (menu-item "Multi Occur Marked Buffers..." Buffer-menu-multi-occur :help "Show lines matching a regexp in marked buffers using Occur") [s3] [by] (menu-item "Bury" Buffer-menu-bury :help "Bury the buffer listed on this line") [vt] (menu-item "Set Unmodified" Buffer-menu-not-modified :help "Mark buffer on this line as unmodified (no changes to save)") [ex] (menu-item "Execute" Buffer-menu-execute :help "Save and/or delete buffers marked with s or k commands") [s4] [delb] (menu-item "Mark for Delete and Move Backwards" Buffer-menu-delete-backwards :help "Mark buffer on this line to be deleted by x command and move up one line") [del] (menu-item "Mark for Delete" Buffer-menu-delete :help "Mark buffer on this line to be deleted by x command") [sv] (menu-item "Mark for Save" Buffer-menu-save :help "Mark buffer on this line to be saved by x command") [umk] (menu-item "Unmark" Buffer-menu-unmark :help "Cancel all requested operations on buffer on this line and move down") [umkab] (menu-item "Remove marks..." Buffer-menu-unmark-all-buffers :help "Cancel a requested operation on all buffers") [umka] (menu-item "Unmark all" Buffer-menu-unmark-all :help "Cancel all requested operations on buffers") [mk] (menu-item "Mark" Buffer-menu-mark :help "Mark buffer on this line for being displayed by v command")] 7) (#$ . 2949)) (byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias buffer-menu-mode-hook Buffer-menu-mode-hook nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1"] 7) (defvar Buffer-menu-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [Buffer-menu-mode-hook variable-documentation put "Hook run after entering Buffer Menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp Buffer-menu-mode-map definition-name Buffer-menu-mode] 4) (defvar Buffer-menu-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [Buffer-menu-mode-abbrev-table Buffer-menu-mode-map variable-documentation put purecopy "Keymap for `Buffer-menu-mode'." boundp Buffer-menu-mode-syntax-table definition-name Buffer-menu-mode (lambda (#1=#:def-tmp-var) (defvar Buffer-menu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `Buffer-menu-mode'." (lambda (#1#) (defvar Buffer-menu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `Buffer-menu-mode'." derived-mode-parent tabulated-list-mode] 5) #@2583 Major mode for Buffer Menu buffers. The Buffer Menu is invoked by the commands \[list-buffers], \[buffer-menu], and \[buffer-menu-other-window]. See `buffer-menu' for a description of its contents. In Buffer Menu mode, the following commands are defined: \<Buffer-menu-mode-map> \[quit-window] Remove the Buffer Menu from the display. \[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 remains visible in its window. \[Buffer-menu-view] Select current line's buffer, 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 the buffer selected before this one in another window. \[Buffer-menu-isearch-buffers] Incremental search in the marked buffers. \[Buffer-menu-isearch-buffers-regexp] Isearch for regexp in the marked buffers. \[Buffer-menu-multi-occur] Show lines matching regexp in the marked buffers. \[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 marks from current line. With prefix argument, also move up one line. \[Buffer-menu-unmark-all-buffers] Remove a particular mark from all lines. \[Buffer-menu-unmark-all] Remove all marks from all lines. \[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. \[revert-buffer] 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. In addition to any hooks its parent mode `tabulated-list-mode' might have run, this mode runs the hook `Buffer-menu-mode-hook', as the final or penultimate step during initialization. (defalias 'Buffer-menu-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315!\204' \316\317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R !=\204R \326 \325!C#\210\327!\210\330\f!\210 !\306\331!\210\332\333\334\335\336\307$\210)\337\340!\207" [delay-mode-hooks major-mode mode-name Buffer-menu-mode-map Buffer-menu-mode-syntax-table Buffer-menu-mode-abbrev-table make-local-variable t tabulated-list-mode Buffer-menu-mode "Buffer Menu" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-stale-function #[256 "\300\207" [fast] 2 "\n\n(fn &optional NOCONFIRM)"] add-hook tabulated-list-revert-hook list-buffers--refresh nil run-mode-hooks Buffer-menu-mode-hook local-abbrev-table] 5 (#$ . 9376) nil]) #@916 Switch to the Buffer Menu. By default, the Buffer Menu lists all buffers except those whose names start with a space (which are for internal use). With prefix argument ARG, show only buffers that are visiting files. In the Buffer Menu, the first column (denoted "C") shows "." for the buffer from which you came, ">" for buffers you mark to be displayed, and "D" for those you mark for deletion. 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. The remaining columns show the buffer name, the buffer size in characters, its major mode, and the visited file name (if any). See `Buffer-menu-mode' for the keybindings available the Buffer Menu. The width of the various columns can be customized by changing the `Buffer-menu-name-width', `Buffer-menu-size-width' and `Buffer-menu-mode-width' variables. (fn &optional ARG) (defalias 'buffer-menu #[256 "\300\301!!\210\302\303!\207" [switch-to-buffer list-buffers-noselect message "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help."] 4 (#$ . 12912) "P"]) #@300 Display the Buffer Menu in another window. See `buffer-menu' for a description of the Buffer Menu. By default, all buffers are listed except those whose names start with a space (which are for internal use). With prefix argument ARG, show only buffers that are visiting files. (fn &optional ARG) (defalias 'buffer-menu-other-window #[256 "\300\301!!\210\302\303!\207" [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."] 4 (#$ . 14036) "P"]) #@350 Display a list of existing buffers. The list is displayed in a buffer named "*Buffer List*". See `buffer-menu' for a description of the Buffer Menu. By default, all buffers are listed except those whose names start with a space (which are for internal use). With prefix argument ARG, show only buffers that are visiting files. (fn &optional ARG) (defalias 'list-buffers #[256 "\300\301!!\207" [display-buffer list-buffers-noselect] 4 (#$ . 14570) "P"]) #@185 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. (fn ARG) (defalias 'Buffer-menu-toggle-files-only #[257 "\211\204 ?\202 \301!\302V\205 \303\304\203 \305\202 \306!\210\307 \207" [Buffer-menu-files-only prefix-numeric-value 0 t message "Showing only file-visiting buffers." "Showing all non-internal buffers." revert-buffer] 3 (#$ . 15034) "P"]) (defalias 'Buffer-menu-sort 'tabulated-list-sort) #@218 Return the buffer described by the current Buffer Menu line. If there is no buffer here, return nil if ERROR-IF-NON-EXISTENT-P is nil or omitted, and signal an error otherwise. (fn &optional ERROR-IF-NON-EXISTENT-P) (defalias 'Buffer-menu-buffer #[256 "\300\301\206 `\302\"\262\211\204 \205* \303\304!\202* \305!\204) \205* \303\306!\202* \211\207" [nil get-text-property tabulated-list-id error "No buffer on this line" buffer-live-p "This buffer has been killed"] 5 (#$ . 15571)]) (defalias 'Buffer-menu-no-header #[0 "\301 \210\204 `\302\206 e!\262\204 \303\207\304 \210\305y\210\306\207" [Buffer-menu-use-header-line beginning-of-line overlays-at t ding 1 nil] 3]) (defalias 'Buffer-menu-beginning #[0 "eb\210?\205\n \301y\207" [Buffer-menu-use-header-line nil] 1]) #@138 Mark the Buffer menu entry at point for later display. It will be displayed by the \<Buffer-menu-mode-map>\[Buffer-menu-select] command. (defalias 'Buffer-menu-mark #[0 "\301\302\303!\304#\210\305y\207" [Buffer-menu-marker-char tabulated-list-set-col 0 char-to-string t nil] 4 (#$ . 16363) nil]) #@129 Cancel all requested operations on buffer on this line and move down. Optional prefix arg means move up. (fn &optional BACKUP) (defalias 'Buffer-menu-unmark #[256 "\300 \210\211\203 \301\202\f \302y\207" [Buffer-menu--unmark -1 1] 2 (#$ . 16667) "P"]) #@183 Cancel a requested operation on all buffers. MARK is the character to flag the operation on the buffers. When called interactively prompt for MARK; RET remove all marks. (fn MARK) (defalias 'Buffer-menu-unmark-all-buffers #[257 "\212eb\210\300\301\206 e!\262\203 \300y\210m?\205M \300\302\206 `\303\"\262\304H\300\302\206- `\303\"\262\305HD\306\307\"\204C \310!\235\203F \311 \210\210\300y\210\202 )\207" [nil overlays-at get-text-property tabulated-list-entry 0 2 char-equal 13 char-to-string Buffer-menu--unmark] 6 (#$ . 16928) "cRemove marks (RET means all):"]) #@45 Cancel all requested operations on buffers. (defalias 'Buffer-menu-unmark-all #[0 "\300\301!\207" [Buffer-menu-unmark-all-buffers 13] 2 (#$ . 17514) nil]) #@70 Move up and cancel all requested operations on buffer on line above. (defalias 'Buffer-menu-backup-unmark #[0 "\300y\210\301 \207" [-1 Buffer-menu--unmark] 1 (#$ . 17675) nil]) (defalias 'Buffer-menu--unmark #[0 "\300\301\302\303#\210\304 \211\205 \305!\203 \300\306\307\303#\202 \300\306\302\303#\207" [tabulated-list-set-col 0 " " t Buffer-menu-buffer buffer-modified-p 2 "*"] 5]) #@292 Mark the buffer on this Buffer Menu buffer line for deletion. A subsequent \<Buffer-menu-mode-map>`\[Buffer-menu-execute]' command will delete it. If prefix argument ARG is non-nil, it specifies the number of buffers to delete; a negative ARG means to delete backwards. (fn &optional ARG) (defalias 'Buffer-menu-delete #[256 "\211\203\n \211\301U\203 \302\262\211\301V\203* \303 \203 \304\301\305!\306#\210\302y\210\211S\262\202 \211\301W\205G \303 \203= \304\301\305!\306#\210\307y\210\211T\262\202* \207" [Buffer-menu-del-char 0 1 Buffer-menu-buffer tabulated-list-set-col char-to-string t -1] 5 (#$ . 18069) "p"]) #@229 Mark the buffer on this Buffer Menu line for deletion, and move up. A subsequent \<Buffer-menu-mode-map>`\[Buffer-menu-execute]' command will delete the marked buffer. Prefix ARG means move that many lines. (fn &optional ARG) (defalias 'Buffer-menu-delete-backwards #[256 "\300\206 \301[!\207" [Buffer-menu-delete 1] 3 (#$ . 18703) "p"]) #@137 Mark the buffer on this Buffer Menu line for saving. A subsequent \<Buffer-menu-mode-map>`\[Buffer-menu-execute]' command will save it. (defalias 'Buffer-menu-save #[0 "\300 \205 \301\302\303\304#\210\305y\207" [Buffer-menu-buffer tabulated-list-set-col 2 "S" t 1] 4 (#$ . 19052) nil]) #@166 Mark the buffer on this line as unmodified (no changes to save). If ARG is non-nil (interactively, with a prefix argument), mark it as modified. (fn &optional ARG) (defalias 'Buffer-menu-not-modified #[256 "r\300\301!q\210\302!\210)\303\304\203 \305\202 \306\301#\207" [Buffer-menu-buffer t set-buffer-modified-p tabulated-list-set-col 2 "*" " "] 5 (#$ . 19346) "P"]) #@211 Save and/or delete marked buffers in the Buffer Menu. Buffers marked with \<Buffer-menu-mode-map>`\[Buffer-menu-save]' are saved. Buffers marked with \<Buffer-menu-mode-map>`\[Buffer-menu-delete]' are deleted. (defalias 'Buffer-menu-execute #[0 "\212\300 \210m?\205{ \301\302\206 `\303\"\262\301\302\206 `\304\"\262\211\204) \305y\210\202v \306!\2045 \307 \210\202v \301f\310=\311H\312\232\203\\ \3131V rq\210\314 \210)\315\311\316\317#0\202[ \210\320\321\"\210\211\203r p=\204r \322!\203r \307 \210\202u \305y\210\210\266\202 )\207" [Buffer-menu-beginning nil get-text-property tabulated-list-id tabulated-list-entry 1 buffer-live-p tabulated-list-delete-entry 68 2 "S" (error) save-buffer tabulated-list-set-col " " t warn "Error saving %s" kill-buffer] 7 (#$ . 19726) nil]) #@244 Select this line's buffer; also, display buffers marked with `>'. You can mark buffers with the \<Buffer-menu-mode-map>`\[Buffer-menu-mark]' command. This command deletes and replaces all the previously existing windows in the selected frame. (defalias 'Buffer-menu-select #[0 "\300\301!p\302\303\301!\"\304 SGT\245\305 \210\306!\210=\204\"