browser: uniquify track names, mpg321-remote: restart dead process

darcs-hash:20060622111421-4e3e3-d843dafdb0245f9e08c032ad43bed6b2dc10c701.gz

1 files changed, 7 insertions, 3 deletions

diff --git a/emms-player-mpg321-remote.el b/emms-player-mpg321-remote.el
index 52453b7..be5f63f 100644
--- a/emms-player-mpg321-remote.el
+++ b/emms-player-mpg321-remote.el
@@ -127,13 +127,17 @@ For example: (list \"-o\" \"alsa\")"
   "Sentinel for determining the end of process"
   (when (or (eq (process-status proc) 'exit)
             (eq (process-status proc) 'signal))
-    (emms-player-stopped)))
+    ;; reset
+    (setq emms-player-mpg321-remote-ignore-stop 0)
+    (message "Remote process died!")))
 
 (defun emms-player-mpg321-remote-send (text)
   "Send TEXT to the mpg321 remote process, and add a newline."
-  (let ((proc (emms-player-mpg321-remote-process)))
+  (let (proc)
     ;; we shouldn't be trying to send to a dead process
-    (assert proc)
+    (unless (emms-player-mpg321-remote-running-p)
+      (emms-player-mpg321-remote-start-process))
+    (setq proc  (emms-player-mpg321-remote-process))
     (process-send-string proc (concat text "\n"))))
 
 ;; --------------------------------------------------