branch: externals/listen
commit c71ac57e54d68c6f27953689356a0c37d73ba1fc
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Tidy: "Reload" rather than "refresh" tracks
More strongly implies re-reading them from disk.
---
listen-queue.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/listen-queue.el b/listen-queue.el
index 9b55788cd3..0794366116 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -546,17 +546,17 @@ queue buffer."
(list name queue)))
(setf (listen-queue-name queue) name))
-(cl-defun listen-queue-revert (queue &key refreshp)
+(cl-defun listen-queue-revert (queue &key reloadp)
"Revert QUEUE's buffer.
-When REFRESHP (interactively, with prefix), refresh tracks from
+When RELOADP (interactively, with prefix), reload tracks from
disk."
- (interactive (list listen-queue :refreshp current-prefix-arg))
- (when refreshp
- (listen-queue-refresh queue))
+ (interactive (list listen-queue :reloadp current-prefix-arg))
+ (when reloadp
+ (listen-queue-reload queue))
(listen-queue--update-buffer queue))
-(defun listen-queue-refresh (queue)
- "Refresh QUEUE's tracks from disk."
+(defun listen-queue-reload (queue)
+ "Reload QUEUE's tracks from disk."
(setf (listen-queue-tracks queue)
(listen-queue-tracks-for (mapcar #'listen-track-filename
(listen-queue-tracks queue)))))
