summaryrefslogtreecommitdiff
path: root/lisp/ebuff-menu.el
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1991-12-21 09:29:41 +0000
committerJim Blandy <jimb@redhat.com>1991-12-21 09:29:41 +0000
commit321e0c185d7bf0cf500b94cf290e4ad18fd637e8 (patch)
treeebfebf358d7a7e2b3ff4163cc97bb0bb32cddfd4 /lisp/ebuff-menu.el
parent00ad2293c31faf8b94a445efcfc66861fa053fff (diff)
downloademacs-321e0c185d7bf0cf500b94cf290e4ad18fd637e8.tar.gz
Initial revision
Diffstat (limited to 'lisp/ebuff-menu.el')
-rw-r--r--lisp/ebuff-menu.el241
1 files changed, 241 insertions, 0 deletions
diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
new file mode 100644
index 00000000000..f3fab00a19e
--- /dev/null
+++ b/lisp/ebuff-menu.el
@@ -0,0 +1,241 @@
+; buggestions to mly@ai.mit.edu
+
+;; who says one can't have typeout windows in gnu emacs?
+;; like ^r select buffer from its emacs lunar or tmacs libraries.
+
+;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+
+(require 'electric)
+
+;; this depends on the format of list-buffers (from src/buffer.c) and
+;; on stuff in lisp/buff-menu.el
+
+(defvar electric-buffer-menu-mode-map nil)
+
+;;;###autoload
+(defun electric-buffer-list (arg)
+ "Pops 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.
+
+Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
+
+\\{electric-buffer-menu-mode-map}"
+ (interactive "P")
+ (let (select buffer)
+ (save-window-excursion
+ (save-window-excursion (list-buffers arg))
+ (setq buffer (window-buffer (Electric-pop-up-window "*Buffer List*")))
+ (unwind-protect
+ (progn
+ (set-buffer buffer)
+ (Electric-buffer-menu-mode)
+ (setq select
+ (catch 'electric-buffer-menu-select
+ (message "<<< Press Space to bury the buffer list >>>")
+ (if (= (setq unread-command-char (read-char)) ?\ )
+ (progn (setq unread-command-char -1)
+ (throw 'electric-buffer-menu-select nil)))
+ (let ((first (progn (goto-char (point-min))
+ (forward-line 2)
+ (point)))
+ (last (progn (goto-char (point-max))
+ (forward-line -1)
+ (point)))
+ (goal-column 0))
+ (goto-char first)
+ (Electric-command-loop 'electric-buffer-menu-select
+ nil
+ t
+ 'electric-buffer-menu-looper
+ (cons first last))))))
+ (set-buffer buffer)
+ (Buffer-menu-mode)
+ (bury-buffer buffer)
+ (message "")))
+ (if select
+ (progn (set-buffer buffer)
+ (let ((opoint (point-marker)))
+ (Buffer-menu-execute)
+ (goto-char (point-min))
+ (if (prog1 (search-forward "\n>" nil t)
+ (goto-char opoint) (set-marker opoint nil))
+ (Buffer-menu-select)
+ (switch-to-buffer (Buffer-menu-buffer t))))))))
+
+(defun electric-buffer-menu-looper (state condition)
+ (cond ((and condition
+ (not (memq (car condition) '(buffer-read-only
+ end-of-buffer
+ beginning-of-buffer))))
+ (signal (car condition) (cdr condition)))
+ ((< (point) (car state))
+ (goto-char (point-min))
+ (forward-line 2))
+ ((> (point) (cdr state))
+ (goto-char (point-max))
+ (forward-line -1)
+ (if (pos-visible-in-window-p (point-max))
+ (recenter -1)))))
+
+(put 'Electric-buffer-menu-mode 'mode-class 'special)
+(defun Electric-buffer-menu-mode ()
+ "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.
+\\<electric-buffer-menu-mode-map>
+\\[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 if it is non-nil."
+ (kill-all-local-variables)
+ (use-local-map electric-buffer-menu-mode-map)
+ (setq mode-name "Electric Buffer Menu")
+ (setq mode-line-buffer-identification "Electric Buffer List")
+ (make-local-variable 'Helper-return-blurb)
+ (setq Helper-return-blurb "return to buffer editing")
+ (setq truncate-lines t)
+ (setq buffer-read-only t)
+ (setq major-mode 'Electric-buffer-menu-mode)
+ (goto-char (point-min))
+ (if (search-forward "\n." nil t) (forward-char -1))
+ (run-hooks 'electric-buffer-menu-mode-hook))
+
+;; generally the same as Buffer-menu-mode-map
+;; (except we don't indirect to global-map)
+(put 'Electric-buffer-menu-undefined 'suppress-keymap t)
+(if electric-buffer-menu-mode-map
+ nil
+ (let ((map (make-keymap)))
+ (fillarray map 'Electric-buffer-menu-undefined)
+ (define-key map "\e" (make-keymap))
+ (fillarray (lookup-key map "\e") 'Electric-buffer-menu-undefined)
+ (define-key map "\C-z" 'suspend-emacs)
+ (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
+ (define-key map "\C-h" 'Helper-help)
+ (define-key map "?" 'Helper-describe-bindings)
+ (define-key map "\C-c" nil)
+ (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
+ (define-key map "\C-]" 'Electric-buffer-menu-quit)
+ (define-key map "q" 'Electric-buffer-menu-quit)
+ (define-key map " " 'Electric-buffer-menu-select)
+ (define-key map "\C-l" 'recenter)
+ (define-key map "s" 'Buffer-menu-save)
+ (define-key map "d" 'Buffer-menu-delete)
+ (define-key map "k" 'Buffer-menu-delete)
+ (define-key map "\C-d" 'Buffer-menu-delete-backwards)
+ ;(define-key map "\C-k" 'Buffer-menu-delete)
+ (define-key map "\177" 'Buffer-menu-backup-unmark)
+ (define-key map "~" 'Buffer-menu-not-modified)
+ (define-key map "u" 'Buffer-menu-unmark)
+ (let ((i ?0))
+ (while (<= i ?9)
+ (define-key map (char-to-string i) 'digit-argument)
+ (define-key map (concat "\e" (char-to-string i)) 'digit-argument)
+ (setq i (1+ i))))
+ (define-key map "-" 'negative-argument)
+ (define-key map "\e-" 'negative-argument)
+ (define-key map "m" 'Buffer-menu-mark)
+ (define-key map "\C-u" 'universal-argument)
+ (define-key map "\C-p" 'previous-line)
+ (define-key map "\C-n" 'next-line)
+ (define-key map "p" 'previous-line)
+ (define-key map "n" 'next-line)
+ (define-key map "\C-v" 'scroll-up)
+ (define-key map "\ev" 'scroll-down)
+ (define-key map ">" 'scroll-right)
+ (define-key map "<" 'scroll-left)
+ (define-key map "\e\C-v" 'scroll-other-window)
+ (define-key map "\e>" 'end-of-buffer)
+ (define-key map "\e<" 'beginning-of-buffer)
+ (setq electric-buffer-menu-mode-map map)))
+
+(defun Electric-buffer-menu-exit ()
+ (interactive)
+ (setq unread-command-char last-input-char)
+ ;; for robustness
+ (condition-case ()
+ (throw 'electric-buffer-menu-select nil)
+ (error (Buffer-menu-mode)
+ (other-buffer))))
+
+(defun Electric-buffer-menu-select ()
+ "Leave Electric Buffer Menu, selecting buffers and executing changes.
+Saves buffers marked \"S\". Deletes buffers marked \"K\".
+Selects buffer at point and displays buffers marked \">\" in other windows."
+ (interactive)
+ (throw 'electric-buffer-menu-select (point)))
+
+(defun Electric-buffer-menu-quit ()
+ "Leave Electric Buffer Menu, restoring previous window configuration.
+Does not execute select, save, or delete commands."
+ (interactive)
+ (throw 'electric-buffer-menu-select nil))
+
+(defun Electric-buffer-menu-undefined ()
+ (interactive)
+ (ding)
+ (message (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
+ (eq (key-binding " ") 'Electric-buffer-menu-select)
+ (eq (key-binding "\C-h") 'Helper-help)
+ (eq (key-binding "?") '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))
+
+(defun Electric-buffer-menu-mode-view-buffer ()
+ "View buffer on current line in Electric Buffer Menu.
+Returns to Electric Buffer Menu when done."
+ (interactive)
+ (let ((bufnam (Buffer-menu-buffer nil)))
+ (if bufnam
+ (view-buffer bufnam)
+ (ding)
+ (message "Buffer %s does not exist!" bufnam)
+ (sit-for 4))))
+
+
+
+