emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/emms 3a7341f660 17/42: Avoid some copying in emms-info-


From: ELPA Syncer
Subject: [elpa] externals/emms 3a7341f660 17/42: Avoid some copying in emms-info-vorbis-extract-comments
Date: Wed, 1 Nov 2023 15:58:00 -0400 (EDT)

branch: externals/emms
commit 3a7341f66022d771b87494850b7569ab6a06695f
Author: Petteri Hintsanen <petterih@iki.fi>
Commit: Petteri Hintsanen <petterih@iki.fi>

    Avoid some copying in emms-info-vorbis-extract-comments
---
 emms-info-vorbis.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/emms-info-vorbis.el b/emms-info-vorbis.el
index f1cae7f4b8..a782c8ea0a 100644
--- a/emms-info-vorbis.el
+++ b/emms-info-vorbis.el
@@ -160,11 +160,9 @@ returned."
     (dolist (user-comment user-comments)
       (let* ((comment (alist-get 'user-comment user-comment))
              (pair (emms-info-vorbis--split-comment comment)))
-        (push pair comments)))
-    (seq-filter (lambda (elt)
-                  (member (car elt)
-                          emms-info-vorbis--accepted-fields))
-                comments)))
+        (when (member (car pair) emms-info-vorbis--accepted-fields)
+          (push pair comments))))
+    comments))
 
 (defun emms-info-vorbis--split-comment (comment)
   "Split Vorbis COMMENT to a field-value pair.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]