diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-07 23:48:01 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-07 23:48:01 -0400 |
| commit | 442560600080f6131ec63956ed43eee7d26bf65a (patch) | |
| tree | 7c868d07ed72f2edecc0f0d2b4631d57f27d65b0 /lisp/mpc.el | |
| parent | cc5da1ec4d4c7056a07ad49fb05ac0df5621a75f (diff) | |
| download | emacs-442560600080f6131ec63956ed43eee7d26bf65a.tar.gz | |
* lisp/mpc.el (mpc-songs-jump-to): Adjust to different playlist format.
Diffstat (limited to 'lisp/mpc.el')
| -rw-r--r-- | lisp/mpc.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)) |