From 8b0872202395e5f35064eaf6ac6b56977de6dff2 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Thu, 11 Dec 2008 01:39:26 +0000 Subject: [PATCH] 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. --- emacs/gds.el | 6 ++++++ 1 file changed, 6 insertions(+) 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)