[STUMP] [PATCH] Set *interactive* to NIL before loading rc file and add "loadrc" in "reload"

[Lionel Flandrin]

---
 stumpwm.lisp |    3 ++-
 user.lisp    |    1 +
 2 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/stumpwm.lisp b/stumpwm.lisp
index 856af10..a593a61 100644
--- a/stumpwm.lisp
+++ b/stumpwm.lisp
@@ -51,7 +51,8 @@ loaded. When CATCH-ERRORS is nil, errors are left to be 
handled further up. "
               (error (c) (values nil (format nil "~a" c) rc))
               (:no-error (&rest args) (declare (ignore args)) (values t nil 
rc)))
             (progn
-              (load rc)
+              (let ((*interactive* nil))
+               (load rc))
               (values t nil rc)))
         (values t nil nil))))
 
diff --git a/user.lisp b/user.lisp
index 9e0fa03..c1c5ace 100644
--- a/user.lisp
+++ b/user.lisp
@@ -1793,6 +1793,7 @@ override the default window formatting."
   #+asdf (with-restarts-menu
              (asdf:operate 'asdf:load-op :stumpwm))
   #-asdf (message "^B^1*Sorry, StumpWM can only be reloaded with asdf (for 
now.)")
+  (loadrc)
   #+asdf (message "Reloading StumpWM...^B^2*Done^n."))
 
 (defun run-commands (&rest commands)
-- 
1.5.5