From 442560600080f6131ec63956ed43eee7d26bf65a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 7 Oct 2013 23:48:01 -0400 Subject: * lisp/mpc.el (mpc-songs-jump-to): Adjust to different playlist format. --- lisp/mpc.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/mpc.el') diff --git a/lisp/mpc.el b/lisp/mpc.el index 2bb3f91abc9..e07511c4f12 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el @@ -2009,7 +2009,9 @@ This is used so that they can be compared with `eq', which is needed for posn)))) (let* ((plbuf (mpc-proc-cmd "playlist")) (re (if song-file - (concat "^\\([0-9]+\\):" (regexp-quote song-file) "$"))) + ;; Newer MPCs apparently include "file: " in the buffer. + (concat "^\\([0-9]+\\):\\(?:file: \\)?" + (regexp-quote song-file) "$"))) (sn (with-current-buffer plbuf (goto-char (point-min)) (when (and re (re-search-forward re nil t)) -- cgit v1.2.3