[elpa] externals/plz-media-type 0ddb38a356 13/26: Make plz-media-type-of-response private

[ELPA Syncer]

branch: externals/plz-media-type
commit 0ddb38a3563cdbea6e251fa9736caa2da0a0f484
Author: Roman Scherer <roman@burningswell.com>
Commit: Roman Scherer <roman@burningswell.com>

    Make plz-media-type-of-response private
---
 plz-media-type.el            | 6 +++---
 tests/test-plz-media-type.el | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/plz-media-type.el b/plz-media-type.el
index 2644f82303..ccf0841f2d 100644
--- a/plz-media-type.el
+++ b/plz-media-type.el
@@ -135,7 +135,7 @@ response will not be decoded.")
       (alist-get t media-types)
       (plz-media-type:application/octet-stream)))
 
-(defun plz-media-type-of-response (media-types response)
+(defun plz-media-type--of-response (media-types response)
   "Lookup the content type of RESPONSE in MEDIA-TYPES."
   (let ((media-type (plz-media-type--content-type response)))
     (clone (plz-media--type-find media-types media-type)
@@ -216,7 +216,7 @@ STRING which is output just received from the process."
             (goto-char (point-min))
             (when-let (chunk (plz-media-type--parse-response))
               (delete-region (point) (point-max))
-              (let ((media-type (plz-media-type-of-response media-types 
chunk)))
+              (let ((media-type (plz-media-type--of-response media-types 
chunk)))
                 (setq-local plz-media-type--current media-type)
                 (setq-local plz-media-type--response
                             (make-plz-response
@@ -506,7 +506,7 @@ parsing the HTTP response body with the
             (cond
              ((plz-error-response plzerror)
               (let ((response (plz-error-response plzerror)))
-                (if-let (media-type (plz-media-type-of-response media-types 
response))
+                (if-let (media-type (plz-media-type--of-response media-types 
response))
                     (list msg (with-temp-buffer
                                 (when-let (body (plz-response-body response))
                                   (insert body)
diff --git a/tests/test-plz-media-type.el b/tests/test-plz-media-type.el
index 2ded9b8a1e..4d2f4ebe88 100644
--- a/tests/test-plz-media-type.el
+++ b/tests/test-plz-media-type.el
@@ -132,13 +132,13 @@
   (let ((media-type (plz-media-type--parse "text/html; charset=us-ascii")))
     (should (equal 'us-ascii (plz-media-type-coding-system media-type)))))
 
-(ert-deftest test-plz-media-type-of-response ()
+(ert-deftest test-plz-media-type--of-response ()
   (let* ((response (make-plz-response :headers '((content-type . 
"text/html"))))
-         (media-type (plz-media-type-of-response plz-media-types response)))
+         (media-type (plz-media-type--of-response plz-media-types response)))
     (should (equal 'text/html (plz-media-type-symbol media-type)))
     (should (equal 'utf-8 (plz-media-type-coding-system media-type))))
   (let* ((response (make-plz-response :headers '((content-type . "text/html; 
charset=us-ascii"))))
-         (media-type (plz-media-type-of-response plz-media-types response)))
+         (media-type (plz-media-type--of-response plz-media-types response)))
     (should (equal 'text/html (plz-media-type-symbol media-type)))
     (should (equal 'us-ascii (plz-media-type-coding-system media-type)))))