dap-debug: remove compilation hook after use (#472)

Prevent hooks from piling up each time dap-debug is called with
'dap-compilation' set in launch.json. If they do, multiple debug
sessions will be started after a successful compilation, not necessarily
linked to the current debug target but to previous ones.

Author: kendatsuba

dap-mode.el

@@ -1694,17 +1694,18 @@ be used to compile the project, spin up docker, ...."
           (with-current-buffer (compilation-start dap-compilation t (lambda (&rest _)
                                                                       "*DAP compilation*"))
             (let (window)
-              (add-hook 'compilation-finish-functions
-                        (lambda (buf status &rest _)
-                          (if (string= "finished\n" status)
-                              (progn
-                                (when (and (not dap-debug-compilation-keep)
-                                           (window-live-p window)
-                                           (eq buf (window-buffer window)))
-                                  (delete-window window))
-                                (funcall cb))
-                            (lsp--error "Compilation step failed"))))
-              (setq window (display-buffer (current-buffer))))))
+              (cl-labels ((cf (buf status &rest _)
+                           (remove-hook 'compilation-finish-functions #'cf)
+                           (if (string= "finished\n" status)
+                               (progn
+                                 (when (and (not dap-debug-compilation-keep)
+                                            (window-live-p window)
+                                            (eq buf (window-buffer window)))
+                                   (delete-window window))
+                                 (funcall cb))
+                             (lsp--error "Compilation step failed"))))
+                (add-hook 'compilation-finish-functions #'cf)
+                (setq window (display-buffer (current-buffer)))))))
       (funcall cb))))
 
 (defun dap-debug-edit-template (&optional debug-args)