Kill the log buffer when empc quits.

This commit is contained in:
Renaud Casenave-Péré 2011-09-06 16:21:22 +09:00
parent a5f5e07a3b
commit bb2fd85e51

View file

@ -210,7 +210,8 @@ SERVICE is the name of the service desired, or an integer specifying
"Close OBJECT: delete the process and kill the buffers." "Close OBJECT: delete the process and kill the buffers."
(let ((buffer (process-buffer (empc-process object)))) (let ((buffer (process-buffer (empc-process object))))
(delete-process (empc-process object)) (delete-process (empc-process object))
(kill-buffer buffer))) (kill-buffer buffer)
(kill-buffer (empc-log object))))
(defvar empc-song-format '(time "\t" (if (and artist title) (concat artist " - " title) file)) (defvar empc-song-format '(time "\t" (if (and artist title) (concat artist " - " title) file))
"Format used to express songs in playlist and browser. "Format used to express songs in playlist and browser.