home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / elisp / buff_men.elc < prev    next >
Encoding:
Text File  |  1993-10-23  |  7.3 KB  |  95 lines
  1.  
  2. (defvar Buffer-menu-mode-map nil "\
  3. ")
  4.  
  5. (if Buffer-menu-mode-map nil (setq Buffer-menu-mode-map (make-keymap)) (suppress-keymap Buffer-menu-mode-map t) (define-key Buffer-menu-mode-map "q" (quote Buffer-menu-select)) (define-key Buffer-menu-mode-map "2" (quote Buffer-menu-2-window)) (define-key Buffer-menu-mode-map "1" (quote Buffer-menu-1-window)) (define-key Buffer-menu-mode-map "f" (quote Buffer-menu-this-window)) (define-key Buffer-menu-mode-map "o" (quote Buffer-menu-other-window)) (define-key Buffer-menu-mode-map "s" (quote Buffer-menu-save)) (define-key Buffer-menu-mode-map "d" (quote Buffer-menu-delete)) (define-key Buffer-menu-mode-map "k" (quote Buffer-menu-delete)) (define-key Buffer-menu-mode-map "⇦" (quote Buffer-menu-delete-backwards)) (define-key Buffer-menu-mode-map "♪" (quote Buffer-menu-delete)) (define-key Buffer-menu-mode-map "x" (quote Buffer-menu-execute)) (define-key Buffer-menu-mode-map " " (quote next-line)) (define-key Buffer-menu-mode-map "" (quote Buffer-menu-backup-unmark)) (define-key Buffer-menu-mode-map "~" (quote Buffer-menu-not-modified)) (define-key Buffer-menu-mode-map "?" (quote describe-mode)) (define-key Buffer-menu-mode-map "u" (quote Buffer-menu-unmark)) (define-key Buffer-menu-mode-map "m" (quote Buffer-menu-mark)))
  6.  
  7. (put (quote Buffer-menu-mode) (quote mode-class) (quote special))
  8.  
  9. (defun Buffer-menu-mode nil "\
  10. Major mode for editing a list of buffers.
  11. Each line describes one of the buffers in Emacs.
  12. Letters do not insert themselves; instead, they are commands.
  13. m -- mark buffer to be displayed.
  14. q -- select buffer of line point is on.
  15.   Also show buffers marked with m in other windows.
  16. 1 -- select that buffer in full-screen window.
  17. 2 -- select that buffer in one window,
  18.   together with buffer selected before this one in another window.
  19. f -- select that buffer in place of the buffer menu buffer.
  20. o -- select that buffer in another window,
  21.   so the buffer menu buffer remains visible in its window.
  22. ~ -- clear modified-flag on that buffer.
  23. s -- mark that buffer to be saved, and move down.
  24. d or k -- mark that buffer to be deleted, and move down.
  25. C-d -- mark that buffer to be deleted, and move up.
  26. x -- delete or save marked buffers.
  27. u -- remove all kinds of marks from current line.
  28. Delete -- back up a line and remove marks.
  29.  
  30. Precisely,\\{Buffer-menu-mode-map}" (byte-code "ה êו✓!êאë①êאë③êזë④êחë⑤êטי!ç" [Buffer-menu-mode-map truncate-lines t buffer-read-only major-mode mode-name kill-all-local-variables use-local-map Buffer-menu-mode "Buffer Menu" run-hooks buffer-menu-mode-hook] 4))
  31.  
  32. (defvar Buffer-menu-buffer-column nil)
  33.  
  34. (defvar Buffer-menu-size-column nil)
  35.  
  36. (defun Buffer-menu-buffer (error-if-non-existent-p) "\
  37. Return buffer described by this line of buffer menu." (byte-code "✓?à!èebêהו!êזח!êië⓪êהט!êזח!êië①)êèי êכ✓!ê`דəלמ!êנס!êע
  38. `\"ë③êפ♪!åO âNצק♪\"éOד*)ç" [Buffer-menu-buffer-column Buffer-menu-size-column start string error-if-non-existent-p nil search-forward "Buffer" backward-word 1 "Size" beginning-of-line forward-char re-search-forward "    \\|  " skip-chars-backward "     " buffer-substring get-buffer error "No buffer named \"%s\""] 13))
  39.  
  40. (defun buffer-menu (arg) "\
  41. Make a menu of buffers so you can save, delete or select them.
  42. With argument, show only buffers that are visiting files.
  43. Type ? after invocation to get help on commands available.
  44. Type q immediately to make the buffer menu go away." (interactive "P") (byte-code "IJêא✓!êבג!êדה!êוז!ç" [arg nil list-buffers pop-to-buffer "*Buffer List*" forward-line 2 message "Commands: d, s, x; 1, 2, m, u, q; delete; ~;  ? for help."] 5))
  45.  
  46. (defun Buffer-menu-mark nil "\
  47. Mark buffer on this line for being displayed by \\[Buffer-menu-select] command." (interactive) (byte-code "IJêא êבג!â⓪ד éIJ⑧הו!êזcêחו!)ç" [buffer-read-only nil beginning-of-line looking-at " [-M]" ding delete-char 1 62 forward-line] 6))
  48.  
  49. (defun Buffer-menu-unmark nil "\
  50. Cancel all requested operations on buffer on this line." (interactive) (byte-code "דêה êוז!â⓪ח é@טIJ!⑧י✓!əè✓qê )דכל!ê♪â5
  51. â1מé2נé>
  52. â=סé>עc,êפצ!ç" [buf t mod readonly buffer-read-only nil beginning-of-line looking-at " [-M]" ding Buffer-menu-buffer buffer-modified-p delete-char 3 " *%" "  %" " * " "   " forward-line 1] 8))
  53.  
  54. (defun Buffer-menu-backup-unmark nil "\
  55. Move up and cancel all requested operations on buffer on line above." (interactive) (byte-code "ijêIJא!êב êIJא!ç" [nil forward-line -1 Buffer-menu-unmark] 4))
  56.  
  57. (defun Buffer-menu-delete nil "\
  58. Mark buffer on this line to be deleted by \\[Buffer-menu-execute] command." (interactive) (byte-code "IJêא êבג!â⓪ד éIJ⑧הו!êזcêחו!)ç" [buffer-read-only nil beginning-of-line looking-at " [-M]" ding delete-char 1 68 forward-line] 6))
  59.  
  60. (defun Buffer-menu-delete-backwards nil "\
  61. Mark buffer on this line to be deleted by \\[Buffer-menu-execute] command
  62. and then move up one line" (interactive) (byte-code "ijêIJ êאב!êגד!à②אה!ç" [nil Buffer-menu-delete forward-line -2 looking-at " [-M]" 1] 5))
  63.  
  64. (defun Buffer-menu-save nil "\
  65. Mark buffer on this line to be saved by \\[Buffer-menu-execute] command." (interactive) (byte-code "IJêא êבג!êדה!â④ו é!IJ⑧זג!êחcêטג!)ç" [buffer-read-only nil beginning-of-line forward-char 1 looking-at " [-M]" ding delete-char 83 forward-line] 7))
  66.  
  67. (defun Buffer-menu-not-modified nil "\
  68. Mark buffer on this line as unmodified (no changes to save)." (interactive) (byte-code "IJêèבij!qêגIJ!)êèד êהו!êזח!à$IJəטו!êיc))ç" [t nil buffer-read-only Buffer-menu-buffer set-buffer-modified-p beginning-of-line forward-char 1 looking-at "\\*" delete-char 32] 7))
  69.  
  70. (defun Buffer-menu-execute nil "\
  71. Save and/or delete buffers marked with \\[Buffer-menu-save] or \\[Buffer-menu-delete] commands." (interactive) (byte-code "ijêèebêהו!êזחijIJ#à9ijəèטIJ!qêי êכ ë②)êijלמ!ê
  72. â1נé2סc))êé
  73. )êèebêהו!êpijעפijIJ#àëצמ!êטij!ij=åh =åhèק!))êטij!âyלו!êסcéàר`הו!ê`\"êצמ!êéG*)ç" [nil t modp buffer-read-only buff-menu-buffer buf forward-line 1 re-search-forward "^.S" Buffer-menu-buffer save-buffer buffer-modified-p delete-char -1 42 32 search-forward "
  74. D" forward-char kill-buffer delete-region] 18))
  75.  
  76. (defun Buffer-menu-select nil "\
  77. Select this line's buffer; also display buffers marked with \">\".
  78. You can mark buffers with the \\[Buffer-menu-mark] command." (interactive) (byte-code "גêוIJ!pגגə⑧ebêזחגIJ#à=וIJ!ë⑤êג╱טי!êכc)ê✓=å9♪>å9♪Bë③êéêל♪!③מנ S♪GT\"ë⑤êס êע✓!ê
  79. ✓=å]פ
  80. !ê♪àxצג\"êקר!êע♪@!ê♪Aë③êé^êקר!,ç" [buff t menu others nil tem buffer-read-only Buffer-menu-buffer search-forward "
  81. >" delete-char -1 32 nreverse / screen-height delete-other-windows switch-to-buffer bury-buffer split-window other-window 1] 16))
  82.  
  83. (defun Buffer-menu-1-window nil "\
  84. Select this line's buffer, alone, in full screen." (interactive) (byte-code "IJêאבij!!êגד !êה ç" [t nil switch-to-buffer Buffer-menu-buffer bury-buffer other-buffer delete-other-windows] 6))
  85.  
  86. (defun Buffer-menu-this-window nil "\
  87. Select this line's buffer in this window." (interactive) (byte-code "IJêאבij!!ç" [t nil switch-to-buffer Buffer-menu-buffer] 3))
  88.  
  89. (defun Buffer-menu-other-window nil "\
  90. Select this line's buffer in other window, leaving buffer menu visible." (interactive) (byte-code "IJêאבij!!ç" [t nil switch-to-buffer-other-window Buffer-menu-buffer] 3))
  91.  
  92. (defun Buffer-menu-2-window nil "\
  93. Select this line's buffer, with previous buffer in second window." (interactive) (byte-code "גêדIJ!pIJə⑧הו !êז✓!êח
  94. !+ç" [buff t menu pop-up-windows nil Buffer-menu-buffer switch-to-buffer other-buffer pop-to-buffer bury-buffer] 6))
  95.