Function: ebrowse-hack-electric-buffer-menu

ebrowse-hack-electric-buffer-menu is a byte-compiled function defined in ebrowse.el.gz.

Signature

(ebrowse-hack-electric-buffer-menu)

Documentation

Hack the electric buffer menu to display browser buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
(defun ebrowse-hack-electric-buffer-menu ()
  "Hack the electric buffer menu to display browser buffers."
  (let (non-empty)
    (unwind-protect
	(save-excursion
	  (setq buffer-read-only nil)
	  (goto-char 1)
	  (forward-line 2)
	  (while (not (eobp))
	    (let ((b (Buffer-menu-buffer nil)))
	      (if (or (ebrowse-buffer-p b)
		      (string= (buffer-name b) "*Apropos Members*"))
		  (progn (forward-line 1)
			 (setq non-empty t))
		(delete-region (point)
			       (save-excursion (end-of-line)
					       (min (point-max)
						    (1+ (point)))))))))
      (unless non-empty
	(error "No tree buffers"))
      (setf unread-command-events
            (nconc (listify-key-sequence "p") unread-command-events))
      (shrink-window-if-larger-than-buffer (selected-window))
      (setq buffer-read-only t))))