From cdb1cacb20b7ef224013d4ba1b4158d9f3f619a7 Mon Sep 17 00:00:00 2001 From: Hugo Thunnissen Date: Mon, 22 Oct 2018 13:52:44 +0200 Subject: [PATCH] Add process to filter function callback arguments --- examples/run-process.el | 2 +- stomp.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/run-process.el b/examples/run-process.el index 588f92a..83a33d0 100644 --- a/examples/run-process.el +++ b/examples/run-process.el @@ -12,7 +12,7 @@ :buffer "stomp-frames" :host "127.0.0.1" :service 61613 - :filter (stomp-filter-function (lambda (frame) (message "%s" frame))))) + :filter (stomp-filter-function (lambda (proc frame) (message "%s" frame))))) (setq frame ()) (stomp-send-frame proc (map-put frame 'command "CONNECT")) diff --git a/stomp.el b/stomp.el index c3207d2..55a6a7c 100644 --- a/stomp.el +++ b/stomp.el @@ -35,7 +35,7 @@ (goto-char (point-max)) (insert string) (let ((frame (stomp-shift-frame (current-buffer)))) - (if frame (funcall callback frame)))))) + (if frame (funcall callback proc frame)))))) (defun stomp-shift-frame (buffer) "Read a frame from a buffer. After reading a frame, it will