scel: shutdown library before class library recompilation
Signed-off-by: Tim Blechmann <tim@klingt.org>
This commit is contained in:
parent
b64f936a3e
commit
d91e92f53f
1 changed files with 4 additions and 1 deletions
|
@ -231,7 +231,9 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
||||||
|
|
||||||
(defun sclang-on-library-shutdown ()
|
(defun sclang-on-library-shutdown ()
|
||||||
(run-hooks 'sclang-library-shutdown-hook)
|
(run-hooks 'sclang-library-shutdown-hook)
|
||||||
(setq sclang-library-initialized-p nil))
|
(setq sclang-library-initialized-p nil)
|
||||||
|
(sclang-message "Shutting down library...")
|
||||||
|
)
|
||||||
|
|
||||||
;; =====================================================================
|
;; =====================================================================
|
||||||
;; process hooks
|
;; process hooks
|
||||||
|
@ -346,6 +348,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
|
||||||
"Recompile class library."
|
"Recompile class library."
|
||||||
(interactive)
|
(interactive)
|
||||||
(when (sclang-get-process)
|
(when (sclang-get-process)
|
||||||
|
(sclang-on-library-shutdown)
|
||||||
(process-send-string sclang-process "\x18")
|
(process-send-string sclang-process "\x18")
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue