[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dape f27faeb169 1/2: Make sure that compile starts a ne
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dape f27faeb169 1/2: Make sure that compile starts a new process |
Date: |
Mon, 25 Mar 2024 18:57:51 -0400 (EDT) |
branch: externals/dape
commit f27faeb169146f5c9db38e40826bf719f492df96
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>
Make sure that compile starts a new process
Add hook after compile to make sure that no compile buffer is running.
---
dape.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/dape.el b/dape.el
index c866474dd0..6c06223c34 100644
--- a/dape.el
+++ b/dape.el
@@ -2418,7 +2418,7 @@ Use SKIP-COMPILE to skip compilation."
;;; Compile
-(defvar dape--compile-config nil)
+(defvar-local dape--compile-config nil)
(defun dape--compile-compilation-finish (buffer str)
"Hook for `dape--compile-compilation-finish'.
@@ -2437,12 +2437,13 @@ Using BUFFER and STR."
"Start compilation for CONFIG."
(let ((default-directory (dape--guess-root config))
(command (plist-get config 'compile)))
- (setq dape--compile-config config)
- ;; FIXME: Kill current compilation before adding hook otherwise we
- ;; we might call `dape' on old compilation.
- (add-hook 'compilation-finish-functions
- #'dape--compile-compilation-finish)
- (funcall dape-compile-fn command)))
+ ;; TODO Is it really necessary to have `dape-compile-fn' as an
+ ;; option as `default-directory' is set.
+ (funcall dape-compile-fn command)
+ (with-current-buffer (compilation-find-buffer)
+ (setq dape--compile-config config)
+ (add-hook 'compilation-finish-functions
+ #'dape--compile-compilation-finish nil t))))
;;; Memory viewer