summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emacs/gds.el6
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)