[nongnu] elpa/mpv 15c51ddc5e 10/50: remove dependency on dash library

[ELPA Syncer]

branch: elpa/mpv
commit 15c51ddc5ec66270df2fbe9b5fbac32b54d21f03
Author: Johann Klähn <kljohann@gmail.com>
Commit: Johann Klähn <kljohann@gmail.com>

    remove dependency on dash library
---
 mpv-mode.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/mpv-mode.el b/mpv-mode.el
index 3faae03575..898ab6cca7 100644
--- a/mpv-mode.el
+++ b/mpv-mode.el
@@ -28,7 +28,6 @@
 (eval-when-compile (require 'names))
 
 (require 'tq)
-(require 'dash)
 (require 'json)
 
 (define-namespace mpv-mode-
@@ -116,21 +115,21 @@ Replacement for `tq-process-buffer' that ignores regular 
expressions
 \(answers are always passed to the first handler in the queue) and
 drops unsolicited event messages."
   (goto-char (point-min))
-  (unless (memq (char-after (point)) '(nil ?{))
-    (skip-chars-forward "^{"))
-  (-when-let (answer (ignore-errors (json-read)))
-    (delete-region (point-min) (point))
-    ;; event messages have form {"event": ...}
-    ;; answers have form {"error": ..., "data": ...}
-    ;; FIXME: handle errors?
-    (unless (or (assoc 'event answer) (tq-queue-empty tq))
-      (unwind-protect
-          (condition-case nil
-              (funcall (tq-queue-head-fn tq)
-                       (cdr (assoc 'data answer)))
-            (error nil))
-        (tq-queue-pop tq)))
-    (-tq-process-buffer tq)))
+  (skip-chars-forward "^{")
+  (let ((answer (ignore-errors (json-read))))
+    (when answer
+      (delete-region (point-min) (point))
+      ;; event messages have form {"event": ...}
+      ;; answers have form {"error": ..., "data": ...}
+      ;; FIXME: handle errors?
+      (unless (or (assoc 'event answer) (tq-queue-empty tq))
+        (unwind-protect
+            (condition-case nil
+                (funcall (tq-queue-head-fn tq)
+                         (cdr (assoc 'data answer)))
+              (error nil))
+          (tq-queue-pop tq)))
+      (-tq-process-buffer tq))))
 
 (defun pause ()
   "Pause or unpause playback."