;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:39 2007 ;;; from file /home/cyd/emacs/lisp/ebuff-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 "`ebuff-menu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\306\207" [current-load-list require electric electric-buffer-menu-mode-map default-boundp set-default nil] 3) #@44 Normal hook run by `electric-buffer-list'. (defvar electric-buffer-menu-mode-hook nil (#$ . 743)) #@620 Pop up a buffer describing the set of Emacs buffers. Vaguely like ITS lunar select buffer; combining typeoutoid buffer listing with menuoid buffer selection. If the very next character typed is a space then the buffer list window disappears. Otherwise, one may move around in the buffer list window, marking buffers to be selected, saved or deleted. To exit and select a new buffer, type a space when the cursor is on the appropriate line of the buffer-list window. Other commands are much like those of `Buffer-menu-mode'. Run hooks in `electric-buffer-menu-mode-hook' on entry. \{electric-buffer-menu-mode-map} (defalias 'electric-buffer-list #[(arg) "\303\211\304\213\210 \2052q\210\305 \306 \210eb\210\307\310\303\311#\nb\210\n\303\211\223\210\203,\312 \2021\313\314\311!!)*\207" [buffer select opoint nil ((byte-code "\303!\304 !\210\305\216 q\210\306 \210\307 \210\310\311\215)\303\207" [arg buffer select list-buffers-noselect Electric-pop-up-window ((byte-code "q\210\301 \210\302!\210\303\304!\207" [buffer Buffer-menu-mode bury-buffer message ""] 2)) Electric-buffer-menu-mode electric-buffer-update-highlight electric-buffer-menu-select (byte-code "\306\307!\210\310 C\211\311=\203\312\313\314\312\"\210`eb\210 \204 \315y\210`db\210\316y\210`\317\211\fW\2049 V\203=\f\202> b\210\320\314\312\321\322\f B%,\207" [unread-command-events Buffer-menu-use-header-line goal-column last first start-point message "<<< Press Return to bury the buffer list >>>" read-event 32 nil throw electric-buffer-menu-select 2 -1 0 Electric-command-loop t electric-buffer-menu-looper] 8)] 2)) point-marker Buffer-menu-execute search-forward "\n>" t Buffer-menu-select switch-to-buffer Buffer-menu-buffer] 4 (#$ . 848) "P"]) (defalias 'electric-buffer-menu-looper #[(state condition) "\203@\303>\204\304@A\"\210\202@` @W\203)eb\210\n\204@\305y\210\202@` AV\203@db\210\306y\210\307d!\203@\310\306!\210\311 \207" [condition state Buffer-menu-use-header-line (buffer-read-only end-of-buffer beginning-of-buffer) signal 2 -1 pos-visible-in-window-p recenter electric-buffer-update-highlight] 3]) (put 'Electric-buffer-menu-mode 'mode-class 'special) #@1196 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. \ \[keyboard-quit] or \[Electric-buffer-menu-quit] -- exit buffer menu, returning to previous window and buffer configuration. If the very first character typed is a space, it also has this effect. \[Electric-buffer-menu-select] -- select buffer of line point is on. Also show buffers marked with m in other windows, deletes buffers marked with "D", and saves those marked with "S". \[Buffer-menu-mark] -- mark buffer to be displayed. \[Buffer-menu-not-modified] -- clear modified-flag on that buffer. \[Buffer-menu-save] -- mark that buffer to be saved. \[Buffer-menu-delete] or \[Buffer-menu-delete-backwards] -- mark that buffer to be deleted. \[Buffer-menu-unmark] -- remove all kinds of marks from current line. \[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done. \[Buffer-menu-backup-unmark] -- back up a line and remove marks. \{electric-buffer-menu-mode-map} Entry to this mode via command `electric-buffer-list' calls the value of `electric-buffer-menu-mode-hook'. (defalias 'Electric-buffer-menu-mode #[nil "\306 \210 )\307\n!\210\310\311\312\305!\210\313\314\211\315eb\210\316\317\320\314#\203-\321u\210\322\323!\207" [header-line-format saved electric-buffer-menu-mode-map mode-name mode-line-buffer-identification Helper-return-blurb kill-all-local-variables use-local-map "Electric Buffer Menu" "Electric Buffer List" make-local-variable "return to buffer editing" t Electric-buffer-menu-mode search-forward "\n." nil -1 run-mode-hooks electric-buffer-menu-mode-hook truncate-lines buffer-read-only major-mode] 5 (#$ . 3035)]) (byte-code "\304\305\306\307#\210\204=\310 \311 A@\305\"\210\312 \313\314#\210\312 \315\316#\210\312 \317\320#\210\312 \321\n!\322#\210\312 \323\324#\210\312 \325\314#\210\312 \326\327#\210\312 \330\327#\210\312 \331\327#\210\312 \332\333#\210\312 \334\333#\210\312 \335\336#\210\312 \337\340#\210\312 \341\342#\210\312 \343\342#\210\312 \344\345#\210\312 \346\347#\210\312 \350\351#\210\312 \352\353#\210\354\211\355X\203\251\312 \321 !\356#\210\312 \313\321 !P\356#\210 T\211\202\213)\312 \357\360#\210\312 \361\360#\210\312 \362\363#\210\312 \364\365#\210\312 \366\367#\210\312 \370\371#\210\312 \372\367#\210\312 \373\371#\210\312 \374\375#\210\312 \376\377#\210\312 \201@\201A#\210\312 \201B\201C#\210\312 \201D\201E#\210\312 \201F\201G#\210\312 \201H\201I#\210\312 \201J\314#\210\312 \201K\327#\210\312 \201L\327#\210\312 \201M\201N#\210 )\314\207" [electric-buffer-menu-mode-map map help-char i put Electric-buffer-menu-undefined suppress-keymap t make-keymap fillarray define-key "" nil "" suspend-emacs "v" Electric-buffer-menu-mode-view-buffer char-to-string Helper-help "?" Helper-describe-bindings "" "" Electric-buffer-menu-quit "" "q" " " Electric-buffer-menu-select " " "\f" recenter "s" Buffer-menu-save "d" Buffer-menu-delete "k" "" Buffer-menu-delete-backwards "" Buffer-menu-backup-unmark "~" Buffer-menu-not-modified "u" Buffer-menu-unmark 48 57 digit-argument "-" negative-argument "-" "m" Buffer-menu-mark "" universal-argument "" previous-line "" next-line "p" "n" "" scroll-up "v" scroll-down ">" scroll-right "<" scroll-left "" scroll-other-window ">" end-of-buffer "<" beginning-of-buffer "" "" [escape escape escape] [mouse-2] Electric-buffer-menu-mouse-select] 6) (defalias 'Electric-buffer-menu-exit #[nil "\301\302 !\303\304\305\217\207" [unread-command-events listify-key-sequence this-command-keys nil (byte-code "\300\301\302\"\207" [throw electric-buffer-menu-select nil] 3) ((error (byte-code "\300 \210\301 \207" [Buffer-menu-mode other-buffer] 1)))] 3 nil nil]) #@195 Leave Electric Buffer Menu, selecting buffers and executing changes. Save buffers marked "S". Delete buffers marked "K". Select buffer at point and display buffers marked ">" in other windows. (defalias 'Electric-buffer-menu-select #[nil "\300\301`\"\207" [throw electric-buffer-menu-select] 3 (#$ . 6863) nil]) (defalias 'Electric-buffer-menu-mouse-select #[(event) "\302\211:\203\3038:\203\303\202\3048\202\305 `\306\307F)\307 8)!\210\310\305 !q\210\211:\203E\3038:\203?\303\202@\3048\202K\305 `\306\307F)\311 8\206d\304 8:\203a\304 8@\202d\304 8)b\210\312\313`\"\207" [event position select-window 2 1 selected-window (0 . 0) 0 window-buffer 5 throw electric-buffer-menu-select] 6 nil "e"]) #@123 Leave Electric Buffer Menu, restoring previous window configuration. Skip execution of select, save, and delete commands. (defalias 'Electric-buffer-menu-quit #[nil "\300\301\302\"\207" [throw electric-buffer-menu-select nil] 3 (#$ . 7590) nil]) (defalias 'Electric-buffer-menu-undefined #[nil "\301 \210\302\303\304\305!\306=\203-\304\307!\310=\203-\304\311!!\312=\203-\304\313!\314=\203-\315\316!\2020\315\317!\"\210\320\321!\207" [help-char ding message "%s" key-binding "" Electric-buffer-menu-quit " " Electric-buffer-menu-select char-to-string Helper-help "?" Helper-describe-bindings substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands" "Type \\[Electric-buffer-menu-quit] to exit, \\[Electric-buffer-menu-select] to select, \\[Helper-help] for help, \\[Helper-describe-bindings] for commands." sit-for 4] 5 nil nil]) #@96 View buffer on current line in Electric Buffer Menu. Return to Electric Buffer Menu when done. (defalias 'Electric-buffer-menu-mode-view-buffer #[nil "\301\302!\211\203\303!\202\304 \210\305\306\"\210\307\310!)\207" [bufnam Buffer-menu-buffer nil view-buffer ding message "Buffer %s does not exist!" sit-for 4] 4 (#$ . 8482) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list electric-buffer-overlay default-boundp set-default nil] 3) (defalias 'electric-buffer-update-highlight #[nil "\302=\205( \204\303\301!\210\304``\"\305 \212\306 \210`)\212\307\210`)#\210\310 \311\312#\207" [major-mode electric-buffer-overlay Electric-buffer-menu-mode make-local-variable make-overlay move-overlay beginning-of-line nil overlay-put face highlight] 4]) (provide 'ebuff-menu)