From 7633889a2dc0ac9cb904c1556266ec4cd1e54c15 Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Sat, 5 Feb 2011 20:16:03 -0500
Subject: [PATCH] fileset-whole-run-cmd, use prefix arg.  New alias
 fileset-whole-set-fileset

---
 fileset-whole.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/fileset-whole.el b/fileset-whole.el
index 2ad9559..d9e9362 100644
--- a/fileset-whole.el
+++ b/fileset-whole.el
@@ -195,7 +195,10 @@ Either a whole command or a command on individual files."
       nil t))
 ;;;_  . fileset-whole-read-fileset 
 (defun fileset-whole-read-fileset (&optional ask)
-   "Interactively get the name of a fileset"
+   "Interactively get the name of a fileset.
+Called interactively, it's useful for changing a buffer's default
+   fileset"
+   (interactive (list t))
    (or
       (unless ask fileset-whole-name-here)
       (let
@@ -214,6 +217,8 @@ Either a whole command or a command on individual files."
 	 ;;any file, ask to add it (consult user preference)
 	 ;;`filesets-add-buffer'
 	 name)))
+;;;_  . fileset-whole-set-fileset
+(defalias 'fileset-whole-set-fileset 'fileset-whole-read-fileset)
 ;;;_  . fileset-whole-get-dir
 (defun fileset-whole-get-dir (fileset-whole fileset)
    "Return the root dir of FILESET-WHOLE if it exists."
@@ -230,7 +235,7 @@ Either a whole command or a command on individual files."
    (interactive
       (list
 	 (fileset-whole-read-cmd)
-	 (fileset-whole-read-fileset)))
+	 (fileset-whole-read-fileset current-prefix-arg)))
    (let
       ((cmd-on-whole (assoc cmd-name fileset-whole-commands)))
       (cond
-- 
2.11.4.GIT