From xemacs-m  Fri Dec 13 14:40:32 1996
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with ESMTP id OAA09156 for <xemacs-beta@xemacs.org>; Fri, 13 Dec 1996 14:40:31 -0600 (CST)
Received: from kiki.icd.teradyne.com (kiki.icd.teradyne.com [131.101.1.30]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id PAA07481 for <xemacs-beta@xemacs.org>; Fri, 13 Dec 1996 15:43:09 -0500 (EST)
Received: from spacely.icd.teradyne.com (spacely.icd.teradyne.com [131.101.10.9]) by kiki.icd.teradyne.com (8.7.1/8.7.1) with SMTP id PAA23996 for <xemacs-beta@xemacs.org>; Fri, 13 Dec 1996 15:38:04 -0500 (EST)
Received: from spacely by spacely.icd.teradyne.com (SMI-8.6/SMI-SVR4)
	id PAA18190; Fri, 13 Dec 1996 15:39:50 -0500
Message-Id: <199612132039.PAA18190@spacely.icd.teradyne.com>
To: xemacs-beta@xemacs.org
reply-to: acs@acm.org
Subject: ebuff-menu files only
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Fri, 13 Dec 1996 15:39:50 -0500
From: Vinnie Shelton  <shelton@icd.teradyne.com>

I got this patch from Richard Mlynarik.  I adapted it to 19.15b3.
It allows C-u M-x electric-buffer-list to work

vin

--- ebuff-menu.el.orig	Fri Dec 13 15:22:57 1996
+++ ebuff-menu.el	Fri Dec 13 15:30:57 1996
@@ -42,7 +42,7 @@
 (defvar electric-buffer-menu-mode-map nil)
 
 ;;;###autoload
-(defun electric-buffer-list (arg)
+(defun electric-buffer-list (&optional files-only)
   "Pops up a buffer describing the set of Emacs buffers.
 Vaguely like ITS lunar select buffer; combining typeoutoid buffer
 listing with menuoid buffer selection.
@@ -57,11 +57,16 @@
 
 Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
 
+Non-null optional arg FILES-ONLY means mention only file buffers.
+When called from Lisp code, FILES-ONLY may be a regular expression,
+in which case only buffers whose names match that expression are listed,
+or an arbitrary predicate function.
+
 \\{electric-buffer-menu-mode-map}" 
-  (interactive "P")
+  (interactive (list (if current-prefix-arg t nil)))
   (let (select buffer)
     (save-window-excursion
-      (save-window-excursion (list-buffers arg))
+      (save-window-excursion (list-buffers files-only))
       (setq buffer (window-buffer (Electric-pop-up-window "*Buffer List*")))
       (unwind-protect
 	  (progn


