Add a GDS protocol hook, that we can use for testing

* emacs/gds.el (gds-protocol-hook): New hook.
  (gds-debug-protocol): Run this hook for each received protocol form.

1 files changed, 6 insertions, 0 deletions

diff --git a/emacs/gds.el b/emacs/gds.el
index 7a1486d8d..1275d778b 100644
--- a/emacs/gds.el
+++ b/emacs/gds.el
@@ -138,7 +138,13 @@ listen on to the path that it should bind to for each one.")
 
 ;;;; Debugger protocol
 
+(defcustom gds-protocol-hook nil
+  "Hook called on receipt of a protocol form from the GDS client."
+  :type 'hook
+  :group 'gds)
+
 (defun gds-debug-protocol (client form)
+  (run-hook-with-args 'gds-protocol-hook form)
   (or (eq client '*)
       (let ((proc (car form)))
         (cond ((eq proc 'name)