[elpa] externals/listen 67ef450cb7 053/103: Tidy

[ELPA Syncer]

branch: externals/listen
commit 67ef450cb7c019a49119a58161fae6f5c19ff18b
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy
---
 listen-vlc.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/listen-vlc.el b/listen-vlc.el
index dc76c1da7a..12e7e58693 100755
--- a/listen-vlc.el
+++ b/listen-vlc.el
@@ -58,13 +58,14 @@
 (cl-defmethod listen--ensure ((player listen-player-vlc))
   "Ensure PLAYER is ready."
   (pcase-let (((cl-struct listen-player command args process) player))
-    (unless (and process (process-live-p process))
+    (unless (process-live-p process)
       (setf (listen-player-process player)
             (apply #'start-process "listen-player-vlc" (generate-new-buffer " 
*listen-player-vlc*")
                    command args)))))
 
 (cl-defmethod listen--play ((player listen-player-vlc) file)
-  "Play FILE with PLAYER."
+  "Play FILE with PLAYER.
+Stops playing, clears playlist, adds FILE, and plays it."
   (dolist (command `("stop" "clear" ,(format "add %s" (expand-file-name file)) 
"play"))
     (listen--send player command)))
 
@@ -90,7 +91,7 @@
   (string-to-number (listen--send player "get_time")))
 
 (cl-defmethod listen--length ((player listen-player-vlc))
-  "Return length of  PLAYER's track."
+  "Return length of PLAYER's track in seconds."
   (string-to-number (listen--send player "get_length")))
 
 (cl-defmethod listen--send ((player listen-player-vlc) command)