[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv26297/contrib

Modified Files:
	ChangeLog slime-package-fu.el 
Log Message:
* contrib/slime-package-fu.el (slime-export-save-file): New variable, when
set to T saves package.lisp after each modification. Defaults to NIL.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2012/01/06 09:57:15	1.530
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2012/03/06 01:47:49	1.531
@@ -1,3 +1,8 @@
+2012-03-06  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-package-fu.el (slime-export-save-file): New variable, when
+	set to T saves package.lisp after each modification. Defaults to NIL.
+
 2012-01-06  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-mrepl.lisp (send-prompt): Fix use of OR.
--- /project/slime/cvsroot/slime/contrib/slime-package-fu.el	2011/05/31 10:30:02	1.15
+++ /project/slime/cvsroot/slime/contrib/slime-package-fu.el	2012/03/06 01:47:49	1.16
@@ -28,6 +28,9 @@
 If it's mixed or no symbols are exported so far,
 use `slime-export-symbol-representation-function'.")
 
+(defvar slime-export-save-file nil
+  "Save the package file after each automatic modification")
+
 (defvar slime-defpackage-regexp
   "^(\\(cl:\\|common-lisp:\\)?defpackage\\>[ \t']*")
 
@@ -181,6 +184,8 @@
              (when (slime-symbol-exported-p symbol-name exported-symbols)
                (slime-remove-export symbol-name)
                (incf number-of-actions))))))
+      (when slime-export-save-file
+        (save-buffer))
       number-of-actions)))
 
 (defun slime-add-export ()