ebuff-menu.elc 6.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879
  1. (require (quote electric))
  2. (defvar electric-buffer-menu-mode-map nil)
  3. (defun electric-buffer-list (arg) "\
  4. Vaguely like ITS lunar select buffer;
  5. combining typeoutoid buffer listing with menuoid buffer selection.
  6. This pops up a buffer describing the set of emacs buffers.
  7. If the very next character typed is a space then the buffer list
  8. window disappears.
  9. Otherwise, one may move around in the buffer list window, marking
  10. buffers to be selected, saved or deleted.
  11. To exit and select a new buffer, type Space when the cursor is on the
  12. appropriate line of the buffer-list window.
  13. Other commands are much like those of buffer-menu-mode.
  14. Calls value of electric-buffer-menu-mode-hook on entry if non-nil.
  15. \\{electric-buffer-menu-mode-map}" (interactive "P") (byte-code "ĈÄÄÆ‹ˆƒ7 qˆÇ È ˆebˆÉÊÄÅ# bˆË Ä\"ˆƒ.Ì ‚3ÍÎÅ!!)‚8Ä*‡" [select buffer arg opoint nil t ((byte-code "ˈÄÅÆ!!‰ˆÇŽ qˆÈ ˆÉÊ�‰)‡" [arg buffer select ((byte-code "Á!‡" [arg list-buffers] 2)) window-buffer Electric-pop-up-window "*Buffer List*" ((byte-code "qˆÁ ˆÂ!ˆÃÄ!‡" [buffer Buffer-menu-mode bury-buffer message ""] 4)) Electric-buffer-menu-mode electric-buffer-menu-select (byte-code "ÆÇ!ˆr‰ÈUƒɉˆÊËÁ\"‚ÁˆebˆÌÍ!ˆ`dbˆÌÉ!ˆ`Î
  16. bˆÏËÁÅÐ
  17. B%+‡" [unread-command-char nil first last goal-column t message "<<< Press Space to bury the buffer list >>>" 32 -1 throw electric-buffer-menu-select forward-line 2 0 Electric-command-loop electric-buffer-menu-looper] 11)] 5)) point-marker Buffer-menu-execute search-forward "
  18. >" set-marker Buffer-menu-select switch-to-buffer Buffer-menu-buffer] 8))
  19. (defun electric-buffer-menu-looper (state condition) (byte-code "… @Â>?ƒÃ@A\"‚@` @Wƒ%ebˆÄÅ!‚@` AV…@dbˆÄÆ!ˆÇd!ƒ?ÈÆ!‚@ɇ" [condition state (buffer-read-only end-of-buffer beginning-of-buffer) signal forward-line 2 -1 pos-visible-in-window-p recenter nil] 6))
  20. (put (quote Electric-buffer-menu-mode) (quote mode-class) (quote special))
  21. (defun Electric-buffer-menu-mode nil "\
  22. Major mode for editing a list of buffers.
  23. Each line describes one of the buffers in Emacs.
  24. Letters do not insert themselves; instead, they are commands.
  25. \\{electric-buffer-menu-mode-map}
  26. C-g or C-c C-c -- exit buffer menu, returning to previous window and buffer
  27. configuration. If the very first character typed is a space, it
  28. also has this effect.
  29. Space -- select buffer of line point is on.
  30. Also show buffers marked with m in other windows,
  31. deletes buffers marked with \"D\", and saves those marked with \"S\".
  32. m -- mark buffer to be displayed.
  33. ~ -- clear modified-flag on that buffer.
  34. s -- mark that buffer to be saved.
  35. d or C-d -- mark that buffer to be deleted.
  36. u -- remove all kinds of marks from current line.
  37. v -- view buffer, returning when done.
  38. Delete -- back up a line and remove marks.
  39. Entry to this mode via command \\[electric-buffer-list] calls the value of
  40. electric-buffer-menu-mode-hook if it is non-nil." (byte-code "Ê ˆË!ˆÌ‰ˆÍ‰ˆÁ >ƒ$Î !‰ˆÏÁ >Ð\"‚%ɈÑÄ!ˆÒ‰ˆÆ‰ˆÆ‰ˆÓ‰ˆebˆÔÕÉÆ#ƒMÖ×!‚NɈØÙ!‡" [electric-buffer-menu-mode-map mode-name mode-line-buffer-identification mode-line-format Helper-return-blurb truncate-lines t buffer-read-only major-mode nil kill-all-local-variables use-local-map "Electric Buffer Menu" "Electric Buffer List" copy-sequence setcar "Buffers" make-local-variable "return to buffer editing" Electric-buffer-menu-mode search-forward "
  41. ." forward-char -1 run-hooks electric-buffer-menu-mode-hook] 9))
  42. (put (quote Electric-buffer-menu-undefined) (quote suppress-keymap) t)
  43. (if electric-buffer-menu-mode-map nil (let ((map (make-keymap))) (fillarray map (quote Electric-buffer-menu-undefined)) (define-key map "" (make-keymap)) (fillarray (lookup-key map "") (quote Electric-buffer-menu-undefined)) (define-key map "" (quote suspend-emacs)) (define-key map "v" (quote Electric-buffer-menu-mode-view-buffer)) (define-key map "" (quote Helper-help)) (define-key map "?" (quote Helper-describe-bindings)) (define-key map "" nil) (define-key map "" (quote Electric-buffer-menu-quit)) (define-key map "" (quote Electric-buffer-menu-quit)) (define-key map "q" (quote Electric-buffer-menu-quit)) (define-key map " " (quote Electric-buffer-menu-select)) (define-key map " " (quote recenter)) (define-key map "s" (quote Buffer-menu-save)) (define-key map "d" (quote Buffer-menu-delete)) (define-key map "k" (quote Buffer-menu-delete)) (define-key map "" (quote Buffer-menu-delete-backwards)) (define-key map "" (quote Buffer-menu-backup-unmark)) (define-key map "~" (quote Buffer-menu-not-modified)) (define-key map "u" (quote Buffer-menu-unmark)) (let ((i 48)) (while (<= i 57) (define-key map (char-to-string i) (quote digit-argument)) (define-key map (concat "" (char-to-string i)) (quote digit-argument)) (setq i (1+ i)))) (define-key map "-" (quote negative-argument)) (define-key map "-" (quote negative-argument)) (define-key map "m" (quote Buffer-menu-mark)) (define-key map "" (quote universal-argument)) (define-key map "" (quote previous-line)) (define-key map "" (quote next-line)) (define-key map "p" (quote previous-line)) (define-key map "n" (quote next-line)) (define-key map "" (quote scroll-up)) (define-key map "v" (quote scroll-down)) (define-key map "" (quote scroll-other-window)) (define-key map ">" (quote end-of-buffer)) (define-key map "<" (quote beginning-of-buffer)) (setq electric-buffer-menu-mode-map map)))
  44. (defun Electric-buffer-menu-exit nil (interactive) (byte-code "ˆ ‰ˆÂÃÄ�‡" [unread-command-char last-input-char nil (byte-code "ÁÂÀ\"‡" [nil throw electric-buffer-menu-select] 3) ((error (byte-code "À ˆÁ ‡" [Buffer-menu-mode other-buffer] 3)))] 3))
  45. (defun Electric-buffer-menu-select nil "\
  46. Leave Electric Buffer Menu, selecting buffers and executing changes.
  47. Saves buffers marked \"S\". Deletes buffers marked \"K\".
  48. Selects buffer at point and displays buffers marked \">\" in other
  49. windows." (interactive) (byte-code "ÀˆÁÂ`\"‡" [nil throw electric-buffer-menu-select] 3))
  50. (defun Electric-buffer-menu-quit nil "\
  51. Leave Electric Buffer Menu, restoring previous window configuration.
  52. Does not execute select, save, or delete commands." (interactive) (byte-code "ÀˆÁÂÀ\"‡" [nil throw electric-buffer-menu-select] 3))
  53. (defun Electric-buffer-menu-undefined nil (interactive) (byte-code "ÀˆÁ ˆÂÃÄ!Å=…#ÃÆ!Ç=…#ÃÈ!É=…#ÃÊ!Ë=ƒ*Ì‚-ÍÎ!!ˆÏÐ!‡" [nil ding message key-binding "" Electric-buffer-menu-quit " " Electric-buffer-menu-select "" Helper-help "?" Helper-describe-bindings "Type C-c C-c to exit, Space to select, C-h for help, ? for commands" substitute-command-keys "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] 9))
  54. (defun Electric-buffer-menu-mode-view-buffer nil "\
  55. View buffer on current line in Electric Buffer Menu.
  56. Returns to Electric Buffer Menu when done." (interactive) (byte-code "ÁˆÂÁ!ƒÃ!‚Ä ˆÅÆ\"ˆÇÈ!)‡" [bufnam nil Buffer-menu-buffer view-buffer ding message "Buffer %s does not exist!" sit-for 4] 6))