[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/listen 37086b903d 2/4: Fix: (listen-queue--annotate-buf
From: |
ELPA Syncer |
Subject: |
[elpa] externals/listen 37086b903d 2/4: Fix: (listen-queue--annotate-buffer) inhibit-read-only |
Date: |
Fri, 8 Mar 2024 21:58:14 -0500 (EST) |
branch: externals/listen
commit 37086b903d4eeaaf9c3d29f476d94c0e759aeba0
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Fix: (listen-queue--annotate-buffer) inhibit-read-only
---
listen-queue.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/listen-queue.el b/listen-queue.el
index dbc4f006b5..623605bf1f 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -213,7 +213,8 @@ To be called in a queue's buffer."
(let* ((queue listen-queue)
;; HACK: Update duration here (for now).
(duration (cl-reduce #'+ (listen-queue-tracks queue)
- :key #'listen-track-duration)))
+ :key #'listen-track-duration))
+ (inhibit-read-only t))
(setf (map-elt (listen-queue-etc queue) :duration) duration)
(vtable-end-of-table)
(when duration