[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH] Set *interactive* to NIL before loading rc file and add
From: |
Lionel Flandrin |
Subject: |
[STUMP] [PATCH] Set *interactive* to NIL before loading rc file and add "loadrc" in "reload" |
Date: |
Sat, 24 May 2008 20:12:34 +0200 |
---
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
- [STUMP] [PATCH] Set *interactive* to NIL before loading rc file and add "loadrc" in "reload",
Lionel Flandrin <=