(filesets-add-buffer): If user supplies a name of a

non-existing fileset, create a new fileset.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18983e0665b27edae9dd9386b77d7134d910904c..b8c35544cc84792f748ebf83ef371b3e4f34cb25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-16  Chong Yidong  <cyd@stupidchicken.com>
+
+       * filesets.el (filesets-add-buffer): If user supplies a name of a
+       non-existing fileset, create a new fileset.
+
 2005-04-16  Carsten Dominik  <dominik@science.uva.nl>
 
        * textmodes/org.el (org-up-heading-all): Fixed bug with

diff --git a/lisp/filesets.el b/lisp/filesets.el
index 5a4dd7bda9ac27be1a5526210764aff2051eafe9..9d60f20316fe74bce72866498b16c320fb5db5df 100644 (file)
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1794,8 +1794,17 @@ User will be queried, if no fileset name is provided."
         (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))