branch: externals/listen
commit a604a4d69ff7d48951372a8af43ecd0017d8d2d3
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (listen--ensure MPV) Disable buffer undo
I think this doesn't happen automatically, but it's good to be sure,
anyway, because we don't want to keep undo for these.
---
listen-mpv.el | 20 ++++++++++++--------
1 file changed, 12 insertions(+), 8 deletions(-)
diff --git a/listen-mpv.el b/listen-mpv.el
index 86a9130df8..b6e035eb53 100755
--- a/listen-mpv.el
+++ b/listen-mpv.el
@@ -67,14 +67,18 @@
(socket (make-temp-name (expand-file-name "listen-mpv-socket-"
temporary-file-directory)))
(args (append args (list (format "--input-ipc-server=%s"
socket)))))
(unless (process-live-p process)
- (setf (listen-player-process player)
- (apply #'start-process "listen-player-mpv" (generate-new-buffer "
*listen-player-mpv*")
- command args))
- (sleep-for 1)
- (setf (map-elt (listen-player-etc player) :network-process)
- (make-network-process :name "listen-player-mpv-socket" :family
'local
- :remote socket :noquery t
- :buffer (generate-new-buffer "
*listen-player-mpv-socket*")))
+ (let ((process-buffer (generate-new-buffer " *listen-player-mpv*"))
+ (socket-buffer (generate-new-buffer "
*listen-player-mpv-socket*")))
+ (buffer-disable-undo process-buffer)
+ (buffer-disable-undo socket-buffer)
+ (setf (listen-player-process player)
+ (apply #'start-process "listen-player-mpv" process-buffer
+ command args))
+ (sleep-for 1)
+ (setf (map-elt (listen-player-etc player) :network-process)
+ (make-network-process :name "listen-player-mpv-socket" :family
'local
+ :remote socket :noquery t
+ :buffer socket-buffer)))
(set-process-query-on-exit-flag (listen-player-process player) nil))))
(cl-defmethod listen--play ((player listen-player-mpv) file)
