mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

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

Browse source 
* emacs/gds.el (gds-protocol-hook): New hook.
  (gds-debug-protocol): Run this hook for each received protocol form.
This commit is contained in:
Neil Jerram 2008-12-11 01:39:26 +00:00
parent 55aae98356
commit 8b08722023
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
emacs/gds.el
View file

@ -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)