Add capability to ignnore certain buffer sets when saving

buffer-sets.el

@@ -57,6 +57,11 @@
   "A list of buffer-sets to load on Emacs start."
   :type '(repeat symbol) :group 'editing)
 
+;;;###autoload
+(defcustom buffer-sets-ignore-save (list)
+  "A list of buffer-sets to ignore on saving."
+  :type '(repeat symbol) :group 'editing)
+
 
 ;;; Utility Functions
 
@@ -242,16 +247,17 @@
 
 (defun buffer-sets-save (the-set)
   "Save defined buffer sets."
-  (insert (format "%S\n\n" (let ((name (buffer-set-name the-set))
-                                 (files (buffer-set-files the-set))
-                                 (select (buffer-set-select the-set))
-                                 (on-apply (buffer-set-on-apply-source the-set))
-                                 (on-remove (buffer-set-on-remove-source the-set)))
-                             `(define-buffer-set ,name
-                                :files ,files
-                                :select ,select
-                                :on-apply ,on-apply
-                                :on-remove ,on-remove)))))
+  (if (not (member the-set buffer-sets-ignore-save))
+      (insert (format "%S\n\n" (let ((name (buffer-set-name the-set))
+                                     (files (buffer-set-files the-set))
+                                     (select (buffer-set-select the-set))
+                                     (on-apply (buffer-set-on-apply-source the-set))
+                                     (on-remove (buffer-set-on-remove-source the-set)))
+                                 `(define-buffer-set ,name
+                                    :files ,files
+                                    :select ,select
+                                    :on-apply ,on-apply
+                                    :on-remove ,on-remove))))))
 
 ;;;###autoload
 (defun buffer-sets-load-definitions-file ()