[bpt/emacs.git] / lisp / ebuff-menu.el

;;; ebuff-menu.el --- electric-buffer-list mode

;; Copyright (C) 1985-1986, 1994, 2001-2012  Free Software Foundation, Inc.

;; Author: Richard Mlynarik <mly@ai.mit.edu>
;; Maintainer: FSF
;; Keywords: convenience

;; 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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; Who says one can't have typeout windows in GNU Emacs?   The entry
;; point, `electric-buffer-list' works like ^r select buffer from the
;; ITS Emacs lunar or tmacs libraries.

;;; Code:

(require 'electric)

(defvar electric-buffer-menu-mode-map
  (let ((map (make-keymap)))
    (fillarray (car (cdr map)) 'Electric-buffer-menu-undefined)
    (define-key map "\e" nil)
    (define-key map "\C-z" 'suspend-frame)
    (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
    (define-key map (char-to-string help-char) '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-m" '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-command)
    (define-key map "\ev" 'scroll-down-command)
    (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)
    (define-key map "\e\e" nil)
    (define-key map "\e\e\e" 'Electric-buffer-menu-quit)
    ;; This binding prevents the "escape => ESC" function-key-map mapping from
    ;; kicking in!
    ;; (define-key map [escape escape escape] 'Electric-buffer-menu-quit)
    (define-key map [mouse-2] 'Electric-buffer-menu-mouse-select)
    map))

(put 'Electric-buffer-menu-quit :advertised-binding "\C-c\C-c")
(put 'Electric-buffer-menu-select :advertised-binding " ")
(put 'Helper-help :advertised-binding (char-to-string help-char))
(put 'Helper-describe-bindings :advertised-binding "?")

(defvar electric-buffer-menu-mode-hook nil
  "Normal hook run by `electric-buffer-menu-mode'.")

;;;###autoload
(defun electric-buffer-list (arg)
  "Pop up the Buffer Menu in an \"electric\" window.
If you type SPC or RET (`Electric-buffer-menu-select'), that
selects the buffer at point and quits the \"electric\" window.
Otherwise, you can move around in the Buffer Menu, marking
buffers to be selected, saved or deleted; these 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>
\\[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."
  (interactive "P")
  (let (select buffer)
    (save-window-excursion
      (setq buffer (list-buffers-noselect arg))
      (Electric-pop-up-window buffer)
      (unwind-protect
	  (let ((header header-line-format))
	    (set-buffer buffer)
	    (electric-buffer-menu-mode)
	    (setq header-line-format header)
	    (goto-char (point-min))
	    (if (search-forward "\n." nil t)
		(forward-char -1))
	    (electric-buffer-update-highlight)
	    (setq select
		  (catch 'electric-buffer-menu-select
		    (message "<<< Type SPC or RET to bury the buffer list >>>")
		    (setq unread-command-events (list (read-event)))
		    (let ((start-point (point))
			  (first (progn (goto-char (point-min))
					(unless Buffer-menu-use-header-line
					  (forward-line 2))
					(point)))
			  (last (progn (goto-char (point-max))
				       (forward-line -1)
				       (point)))
			  (goal-column 0))
		      ;; Use start-point if it is meaningful.
		      (goto-char (if (or (< start-point first)
					 (> start-point last))
				     first
				   start-point))
		      (Electric-command-loop 'electric-buffer-menu-select
					     nil
					     t
					     'electric-buffer-menu-looper
					     (cons first last))))))
	(set-buffer buffer)
	(Buffer-menu-mode)
	(bury-buffer)                ;Get rid of window, if dedicated.
	(message "")))
    (when select
      (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))
	 (unless Buffer-menu-use-header-line
	   (forward-line 2)))
	((> (point) (cdr state))
	 (goto-char (point-max))
	 (forward-line -1)
	 (if (pos-visible-in-window-p (point-max))
	     (recenter -1))))
  (electric-buffer-update-highlight))

(defvar Helper-return-blurb)

(define-derived-mode electric-buffer-menu-mode Buffer-menu-mode
  "Electric Buffer Menu"
  "Toggle Electric Buffer Menu mode in this buffer.
With a prefix argument ARG, enable Long Lines mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

Electric Buffer Menu mode is a minor mode which is automatically
enabled and disabled by the \\[electric-buffer-list] command.
See the documentation of `electric-buffer-list' for details."
  (setq mode-line-buffer-identification "Electric Buffer List")
  (set (make-local-variable 'Helper-return-blurb)
       "return to buffer editing"))

(define-obsolete-function-alias 'Electric-buffer-menu-mode
  'electric-buffer-menu-mode "24.3")

;; generally the same as Buffer-menu-mode-map
;;  (except we don't indirect to global-map)
(put 'Electric-buffer-menu-undefined 'suppress-keymap t)

(defun Electric-buffer-menu-exit ()
  (interactive)
  (setq unread-command-events (listify-key-sequence (this-command-keys)))
  ;; 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.
Save buffers marked \"S\".  Delete buffers marked \"K\".
Select buffer at point and display buffers marked \">\" in other windows."
  (interactive)
  (throw 'electric-buffer-menu-select (point)))

(defun Electric-buffer-menu-mouse-select (event)
  (interactive "e")
  (select-window (posn-window (event-end event)))
  (set-buffer (window-buffer (selected-window)))
  (goto-char (posn-point (event-end event)))
  (throw 'electric-buffer-menu-select (point)))

(defun Electric-buffer-menu-quit ()
  "Leave Electric Buffer Menu, restoring previous window configuration.
Skip execution of select, save, and delete commands."
  (interactive)
  (throw 'electric-buffer-menu-select nil))

(defun Electric-buffer-menu-undefined ()
  (interactive)
  (ding)
  (message "%s"
	   (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.
Return 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))))

(defvar electric-buffer-overlay nil)

(defun electric-buffer-update-highlight ()
  (when (derived-mode-p 'electric-buffer-menu-mode)
    ;; Make sure we have an overlay to use.
    (or electric-buffer-overlay
	(set (make-local-variable 'electric-buffer-overlay)
	     (make-overlay (point) (point))))
    (move-overlay electric-buffer-overlay
		  (line-beginning-position)
		  (line-end-position))
    (overlay-put electric-buffer-overlay 'face 'highlight)))

(provide 'ebuff-menu)

;;; ebuff-menu.el ends here
Commit	Line	Data
c0274f38 ER	1	;;; ebuff-menu.el --- electric-buffer-list mode
c0274f38 ER	2
acaf905b	3	;; Copyright (C) 1985-1986, 1994, 2001-2012 Free Software Foundation, Inc.
2076c87c	4
3a801d0c	5	;; Author: Richard Mlynarik <mly@ai.mit.edu>
54138c9d	6	;; Maintainer: FSF
3465cfd7	7	;; Keywords: convenience
3a801d0c	8
2076c87c JB	9	;; This file is part of GNU Emacs.
2076c87c JB	10
eb3fa2cf	11	;; GNU Emacs is free software: you can redistribute it and/or modify
2076c87c	12	;; it under the terms of the GNU General Public License as published by
eb3fa2cf GM	13	;; the Free Software Foundation, either version 3 of the License, or
eb3fa2cf GM	14	;; (at your option) any later version.
2076c87c JB	15
	16	;; GNU Emacs is distributed in the hope that it will be useful,
	17	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	;; GNU General Public License for more details.
	20
	21	;; You should have received a copy of the GNU General Public License
eb3fa2cf	22	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
2076c87c	23
e5167999 ER	24	;;; Commentary:
e5167999 ER	25
e41b2db1 ER	26	;; Who says one can't have typeout windows in GNU Emacs? The entry
	27	;; point, `electric-buffer-list' works like ^r select buffer from the
	28	;; ITS Emacs lunar or tmacs libraries.
e5167999 ER	29
e5167999 ER	30	;;; Code:
2076c87c JB	31
	32	(require 'electric)
	33
bb0bd45a SM	34	(defvar electric-buffer-menu-mode-map
	35	(let ((map (make-keymap)))
	36	(fillarray (car (cdr map)) 'Electric-buffer-menu-undefined)
	37	(define-key map "\e" nil)
	38	(define-key map "\C-z" 'suspend-frame)
	39	(define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
	40	(define-key map (char-to-string help-char) 'Helper-help)
	41	(define-key map "?" 'Helper-describe-bindings)
	42	(define-key map "\C-c" nil)
	43	(define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
	44	(define-key map "\C-]" 'Electric-buffer-menu-quit)
	45	(define-key map "q" 'Electric-buffer-menu-quit)
	46	(define-key map " " 'Electric-buffer-menu-select)
	47	(define-key map "\C-m" 'Electric-buffer-menu-select)
	48	(define-key map "\C-l" 'recenter)
	49	(define-key map "s" 'Buffer-menu-save)
	50	(define-key map "d" 'Buffer-menu-delete)
	51	(define-key map "k" 'Buffer-menu-delete)
	52	(define-key map "\C-d" 'Buffer-menu-delete-backwards)
	53	;; (define-key map "\C-k" 'Buffer-menu-delete)
	54	(define-key map "\177" 'Buffer-menu-backup-unmark)
	55	(define-key map "~" 'Buffer-menu-not-modified)
	56	(define-key map "u" 'Buffer-menu-unmark)
	57	(let ((i ?0))
	58	(while (<= i ?9)
	59	(define-key map (char-to-string i) 'digit-argument)
	60	(define-key map (concat "\e" (char-to-string i)) 'digit-argument)
	61	(setq i (1+ i))))
	62	(define-key map "-" 'negative-argument)
	63	(define-key map "\e-" 'negative-argument)
	64	(define-key map "m" 'Buffer-menu-mark)
	65	(define-key map "\C-u" 'universal-argument)
	66	(define-key map "\C-p" 'previous-line)
	67	(define-key map "\C-n" 'next-line)
	68	(define-key map "p" 'previous-line)
	69	(define-key map "n" 'next-line)
ce3cefcc CY	70	(define-key map "\C-v" 'scroll-up-command)
ce3cefcc CY	71	(define-key map "\ev" 'scroll-down-command)
bb0bd45a SM	72	(define-key map ">" 'scroll-right)
	73	(define-key map "<" 'scroll-left)
	74	(define-key map "\e\C-v" 'scroll-other-window)
	75	(define-key map "\e>" 'end-of-buffer)
	76	(define-key map "\e<" 'beginning-of-buffer)
	77	(define-key map "\e\e" nil)
	78	(define-key map "\e\e\e" 'Electric-buffer-menu-quit)
	79	;; This binding prevents the "escape => ESC" function-key-map mapping from
	80	;; kicking in!
	81	;; (define-key map [escape escape escape] 'Electric-buffer-menu-quit)
	82	(define-key map [mouse-2] 'Electric-buffer-menu-mouse-select)
	83	map))
2076c87c	84
3cc99f68 CY	85	(put 'Electric-buffer-menu-quit :advertised-binding "\C-c\C-c")
	86	(put 'Electric-buffer-menu-select :advertised-binding " ")
	87	(put 'Helper-help :advertised-binding (char-to-string help-char))
	88	(put 'Helper-describe-bindings :advertised-binding "?")
	89
5f20b653	90	(defvar electric-buffer-menu-mode-hook nil
0ae03b6a	91	"Normal hook run by `electric-buffer-menu-mode'.")
5f20b653	92
2076c87c JB	93	;;;###autoload
2076c87c JB	94	(defun electric-buffer-list (arg)
0ae03b6a CY	95	"Pop up the Buffer Menu in an \"electric\" window.
	96	If you type SPC or RET (`Electric-buffer-menu-select'), that
	97	selects the buffer at point and quits the \"electric\" window.
	98	Otherwise, you can move around in the Buffer Menu, marking
	99	buffers to be selected, saved or deleted; these other commands
	100	are much like those of `Buffer-menu-mode'.
2076c87c	101
5f20b653	102	Run hooks in `electric-buffer-menu-mode-hook' on entry.
2076c87c	103
0ae03b6a CY	104	\\<electric-buffer-menu-mode-map>
	105	\\[keyboard-quit] or \\[Electric-buffer-menu-quit] -- exit buffer menu, returning to previous window and buffer
	106	configuration. If the very first character typed is a space, it
	107	also has this effect.
	108	\\[Electric-buffer-menu-select] -- select buffer of line point is on.
	109	Also show buffers marked with m in other windows,
	110	deletes buffers marked with \"D\", and saves those marked with \"S\".
	111	\\[Buffer-menu-mark] -- mark buffer to be displayed.
	112	\\[Buffer-menu-not-modified] -- clear modified-flag on that buffer.
	113	\\[Buffer-menu-save] -- mark that buffer to be saved.
	114	\\[Buffer-menu-delete] or \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted.
	115	\\[Buffer-menu-unmark] -- remove all kinds of marks from current line.
	116	\\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done.
	117	\\[Buffer-menu-backup-unmark] -- back up a line and remove marks."
2076c87c JB	118	(interactive "P")
	119	(let (select buffer)
	120	(save-window-excursion
cf6ce50b SM	121	(setq buffer (list-buffers-noselect arg))
cf6ce50b SM	122	(Electric-pop-up-window buffer)
2076c87c	123	(unwind-protect
4f5d2ba1	124	(let ((header header-line-format))
2076c87c	125	(set-buffer buffer)
0ae03b6a	126	(electric-buffer-menu-mode)
4f5d2ba1	127	(setq header-line-format header)
0ae03b6a CY	128	(goto-char (point-min))
	129	(if (search-forward "\n." nil t)
	130	(forward-char -1))
ede8f2fe	131	(electric-buffer-update-highlight)
2076c87c JB	132	(setq select
2076c87c JB	133	(catch 'electric-buffer-menu-select
0ae03b6a CY	134	(message "<<< Type SPC or RET to bury the buffer list >>>")
0ae03b6a CY	135	(setq unread-command-events (list (read-event)))
69adebeb KH	136	(let ((start-point (point))
69adebeb KH	137	(first (progn (goto-char (point-min))
a82c1267 JPW	138	(unless Buffer-menu-use-header-line
a82c1267 JPW	139	(forward-line 2))
2076c87c JB	140	(point)))
	141	(last (progn (goto-char (point-max))
	142	(forward-line -1)
	143	(point)))
	144	(goal-column 0))
69adebeb KH	145	;; Use start-point if it is meaningful.
	146	(goto-char (if (or (< start-point first)
	147	(> start-point last))
	148	first
	149	start-point))
2076c87c JB	150	(Electric-command-loop 'electric-buffer-menu-select
	151	nil
	152	t
	153	'electric-buffer-menu-looper
	154	(cons first last))))))
	155	(set-buffer buffer)
	156	(Buffer-menu-mode)
ba5bf5f0	157	(bury-buffer) ;Get rid of window, if dedicated.
2076c87c	158	(message "")))
0ae03b6a CY	159	(when select
	160	(set-buffer buffer)
	161	(let ((opoint (point-marker)))
	162	(Buffer-menu-execute)
	163	(goto-char (point-min))
	164	(if (prog1 (search-forward "\n>" nil t)
	165	(goto-char opoint)
	166	(set-marker opoint nil))
	167	(Buffer-menu-select)
	168	(switch-to-buffer (Buffer-menu-buffer t)))))))
2076c87c JB	169
	170	(defun electric-buffer-menu-looper (state condition)
	171	(cond ((and condition
	172	(not (memq (car condition) '(buffer-read-only
	173	end-of-buffer
	174	beginning-of-buffer))))
	175	(signal (car condition) (cdr condition)))
	176	((< (point) (car state))
	177	(goto-char (point-min))
a82c1267 JPW	178	(unless Buffer-menu-use-header-line
a82c1267 JPW	179	(forward-line 2)))
2076c87c JB	180	((> (point) (cdr state))
	181	(goto-char (point-max))
	182	(forward-line -1)
	183	(if (pos-visible-in-window-p (point-max))
ede8f2fe RS	184	(recenter -1))))
ede8f2fe RS	185	(electric-buffer-update-highlight))
2076c87c	186
784f8619 RS	187	(defvar Helper-return-blurb)
784f8619 RS	188
0ae03b6a CY	189	(define-derived-mode electric-buffer-menu-mode Buffer-menu-mode
	190	"Electric Buffer Menu"
	191	"Toggle Electric Buffer Menu mode in this buffer.
	192	With a prefix argument ARG, enable Long Lines mode if ARG is
	193	positive, and disable it otherwise. If called from Lisp, enable
	194	the mode if ARG is omitted or nil.
2076c87c	195
0ae03b6a CY	196	Electric Buffer Menu mode is a minor mode which is automatically
	197	enabled and disabled by the \\[electric-buffer-list] command.
	198	See the documentation of `electric-buffer-list' for details."
2076c87c	199	(setq mode-line-buffer-identification "Electric Buffer List")
0ae03b6a CY	200	(set (make-local-variable 'Helper-return-blurb)
	201	"return to buffer editing"))
	202
	203	(define-obsolete-function-alias 'Electric-buffer-menu-mode
2a1e2476	204	'electric-buffer-menu-mode "24.3")
2076c87c JB	205
	206	;; generally the same as Buffer-menu-mode-map
	207	;; (except we don't indirect to global-map)
	208	(put 'Electric-buffer-menu-undefined 'suppress-keymap t)
bb0bd45a	209
2076c87c JB	210	(defun Electric-buffer-menu-exit ()
2076c87c JB	211	(interactive)
d42cc509	212	(setq unread-command-events (listify-key-sequence (this-command-keys)))
2076c87c JB	213	;; for robustness
	214	(condition-case ()
	215	(throw 'electric-buffer-menu-select nil)
	216	(error (Buffer-menu-mode)
	217	(other-buffer))))
	218
	219	(defun Electric-buffer-menu-select ()
	220	"Leave Electric Buffer Menu, selecting buffers and executing changes.
5f20b653 TTN	221	Save buffers marked \"S\". Delete buffers marked \"K\".
5f20b653 TTN	222	Select buffer at point and display buffers marked \">\" in other windows."
2076c87c JB	223	(interactive)
	224	(throw 'electric-buffer-menu-select (point)))
	225
3c59c255 KH	226	(defun Electric-buffer-menu-mouse-select (event)
	227	(interactive "e")
	228	(select-window (posn-window (event-end event)))
	229	(set-buffer (window-buffer (selected-window)))
	230	(goto-char (posn-point (event-end event)))
	231	(throw 'electric-buffer-menu-select (point)))
	232
2076c87c JB	233	(defun Electric-buffer-menu-quit ()
2076c87c JB	234	"Leave Electric Buffer Menu, restoring previous window configuration.
5f20b653	235	Skip execution of select, save, and delete commands."
2076c87c JB	236	(interactive)
	237	(throw 'electric-buffer-menu-select nil))
	238
	239	(defun Electric-buffer-menu-undefined ()
	240	(interactive)
	241	(ding)
2bb7c30c	242	(message "%s"
3cc99f68	243	(substitute-command-keys "\
2076c87c JB	244	Type \\[Electric-buffer-menu-quit] to exit, \
2076c87c JB	245	\\[Electric-buffer-menu-select] to select, \
3cc99f68	246	\\[Helper-help] for help, \\[Helper-describe-bindings] for commands."))
2076c87c JB	247	(sit-for 4))
	248
	249	(defun Electric-buffer-menu-mode-view-buffer ()
	250	"View buffer on current line in Electric Buffer Menu.
5f20b653	251	Return to Electric Buffer Menu when done."
2076c87c JB	252	(interactive)
	253	(let ((bufnam (Buffer-menu-buffer nil)))
	254	(if bufnam
	255	(view-buffer bufnam)
	256	(ding)
	257	(message "Buffer %s does not exist!" bufnam)
	258	(sit-for 4))))
	259
ede8f2fe	260	(defvar electric-buffer-overlay nil)
0ae03b6a	261
ede8f2fe	262	(defun electric-buffer-update-highlight ()
0ae03b6a	263	(when (derived-mode-p 'electric-buffer-menu-mode)
080314d3 JPW	264	;; Make sure we have an overlay to use.
080314d3 JPW	265	(or electric-buffer-overlay
0ae03b6a CY	266	(set (make-local-variable 'electric-buffer-overlay)
0ae03b6a CY	267	(make-overlay (point) (point))))
080314d3	268	(move-overlay electric-buffer-overlay
5ed619e0 GM	269	(line-beginning-position)
5ed619e0 GM	270	(line-end-position))
080314d3	271	(overlay-put electric-buffer-overlay 'face 'highlight)))
ede8f2fe	272
896546cd RS	273	(provide 'ebuff-menu)
896546cd RS	274
c0274f38	275	;;; ebuff-menu.el ends here