# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1113664864 0
# Node ID 63a08bfc0b0d347685af120fd73a16e9d2419f3d
# Parent  e0ff525f6d80d777eefde1b20221e62bd4ba56c5
(filesets-add-buffer): If user supplies a name of a
non-existing fileset, create a new fileset.

diff -r e0ff525f6d80 -r 63a08bfc0b0d lisp/filesets.el
--- a/lisp/filesets.el	Sat Apr 16 14:50:10 2005 +0000
+++ b/lisp/filesets.el	Sat Apr 16 15:21:04 2005 +0000
@@ -1794,8 +1794,17 @@
 	 (name   (or name
 		     (completing-read
 		      (format "Add '%s' to fileset: " buffer)
-		      filesets-data nil t)))
-	 (entry  (assoc name filesets-data)))
+		      filesets-data nil)))
+         (entry  (or (assoc name filesets-data)
+                     (when (y-or-n-p
+                            (format "Fileset %s does not exist. Create it?"
+                                    name))
+                       (progn
+      (add-to-list 'filesets-data (list name '(:files)))
+      (message
+       "Fileset %s created.  Call `M-x filesets-save-config' to save."
+       name)
+      (car filesets-data))))))
     (if entry
 	(let* ((files  (filesets-entry-get-files entry))
 	       (this   (buffer-file-name buffer))