[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mpdired 0d54f53d40 3/3: `mpdired--parse-endp' is not ne
From: |
ELPA Syncer |
Subject: |
[elpa] externals/mpdired 0d54f53d40 3/3: `mpdired--parse-endp' is not needed for parsing the queue |
Date: |
Fri, 15 Mar 2024 06:58:36 -0400 (EDT) |
branch: externals/mpdired
commit 0d54f53d40fc1e6aab0b51cb54716f5b7b47ad36
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: Manuel Giraud <manuel@ledu-giraud.fr>
`mpdired--parse-endp' is not needed for parsing the queue
XXX This is not the case for "listall" parsing which is recursive.
---
mpdired.el | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index f2ad150585..34e344f35d 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -238,17 +238,13 @@
(defun mpdired--parse-queue ()
;; Called from the communication buffer.
(goto-char (point-min))
- (setq mpdired--parse-endp nil)
(let ((elapsed 0)
(duration 1)
(songid 0)
(in-status-p t)
state volume repeat random single consume
result file time id)
- (while (not (or mpdired--parse-endp
- (setq mpdired--parse-endp
- (re-search-forward mpdired--eot
- (line-end-position) t 1))))
+ (while (not (re-search-forward mpdired--eot (line-end-position) t 1))
(let ((eol (line-end-position)))
;; First, "status" content
(when in-status-p