Reimplement pprint-eval in terms of regular eval

This adds a function but makes three others obsolete. It also means
anything that works for regular eval (like the spinner and overlays)
also works for pprint.

1 files changed, 4 insertions, 3 deletions

diff --git a/nrepl-client.el b/nrepl-client.el
index d20fb589..be812c0e 100644
--- a/nrepl-client.el
+++ b/nrepl-client.el
@@ -1020,12 +1020,13 @@ If LINE and COLUMN are non-nil and current buffer is a file buffer, \"line\",
                     "line" line
                     "column" column)))))
 
-(defun nrepl-request:eval (input callback connection &optional session ns line column)
+(defun nrepl-request:eval (input callback connection &optional session ns line column additional-params)
   "Send the request INPUT and register the CALLBACK as the response handler.
 The request is dispatched via CONNECTION and SESSION.  If NS is non-nil,
 include it in the request. LINE and COLUMN, if non-nil, define the position
-of INPUT in its buffer."
-  (nrepl-send-request (nrepl--eval-request input session ns line column)
+of INPUT in its buffer.
+ADDITIONAL-PARAMS is a plist to be appended to the request message."
+  (nrepl-send-request (append (nrepl--eval-request input session ns line column) additional-params)
                       callback
                       connection))