(setq tagstr (concat tagstr string))
(when (string-suffix-p "@P 1\n" string)
(add-to-list 'emus-tracks
- (emus--make-track-from-tagstr (car filenames
- tagstr)))
+ (emus--make-track-from-tagstr (car filenames)
+ tagstr))
(setq tagstr "")
(setq filenames (cdr filenames))
(if filenames