[elpa] externals/plz-event-source 4784930adc 13/22: Make insert function private

[ELPA Syncer]

branch: externals/plz-event-source
commit 4784930adc86f069fa1d69bd486ede25f1ba043d
Author: Roman Scherer <roman@burningswell.com>
Commit: Roman Scherer <roman@burningswell.com>

    Make insert function private
---
 plz-event-source.el            |  6 +++---
 tests/test-plz-event-source.el | 12 ++++++------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/plz-event-source.el b/plz-event-source.el
index 6496dc1237..8a54300c1a 100644
--- a/plz-event-source.el
+++ b/plz-event-source.el
@@ -267,7 +267,7 @@
 (cl-defgeneric plz-event-source-close (source)
   "Close the event SOURCE.")
 
-(cl-defgeneric plz-event-source-insert (source data)
+(cl-defgeneric plz-event-source--insert (source data)
   "Insert DATA into the event SOURCE buffer, parse and dispatch events.")
 
 (defun plz-event-source-add-listener (source type listener)
@@ -330,7 +330,7 @@
     :type (or null plz-event-source-parser)))
   "A server sent event source using curl for HTTP.")
 
-(cl-defmethod plz-event-source-insert ((source plz-event-source-buffer) data)
+(cl-defmethod plz-event-source--insert ((source plz-event-source-buffer) data)
   "Insert DATA into the event SOURCE buffer, parse and dispatch events."
   (with-slots (parser) source
     (plz-event-source-parser-insert parser data)
@@ -465,7 +465,7 @@ ELSE callbacks will always be set to nil.")
                                 (oref media-type events))))))
       (setq-local plz-event-source--current source)))
   (let ((body (plz-media-type-decode-coding-string media-type 
(plz-response-body chunk))))
-    (plz-event-source-insert plz-event-source--current body)
+    (plz-event-source--insert plz-event-source--current body)
     (set-marker (process-mark process) (point))))
 
 (cl-defmethod plz-media-type-then ((media-type 
plz-event-source:text/event-stream) response)
diff --git a/tests/test-plz-event-source.el b/tests/test-plz-event-source.el
index 27b9b4d593..280134b1cd 100644
--- a/tests/test-plz-event-source.el
+++ b/tests/test-plz-event-source.el
@@ -215,15 +215,15 @@
             (should (equal 'open type))
             (should (null data))))
         (should (equal 0 (length error-events)))
-        (plz-event-source-insert source "data: This is the first message.\n")
+        (plz-event-source--insert source "data: This is the first message.\n")
         (should (null message-events))
-        (plz-event-source-insert source "\n")
+        (plz-event-source--insert source "\n")
         (sit-for 0.1)
         (should (equal (list event-1) message-events))
-        (plz-event-source-insert source "data: This is the second message, 
it\n")
-        (plz-event-source-insert source "data: has two lines.\n")
-        (plz-event-source-insert source "\n")
-        (plz-event-source-insert source "data: This is the third message.\n")
+        (plz-event-source--insert source "data: This is the second message, 
it\n")
+        (plz-event-source--insert source "data: has two lines.\n")
+        (plz-event-source--insert source "\n")
+        (plz-event-source--insert source "data: This is the third message.\n")
         (sit-for 0.1)
         (should (equal (list event-2 event-1) message-events))
         (plz-event-source-close source)