From ad03c9cf42733e9c8ba5be54d2fac452c12ad09b Mon Sep 17 00:00:00 2001
From: Yoni Rabkin <yrk@gnu.org>
Date: Mon, 1 Aug 2016 16:49:50 -0400
Subject: * lisp/emms-tag-editor.el: fix "query-replace-read-args"
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: Daniel Dehennin <daniel.dehennin@baby-gnu.org>
emms-tag-editor: fix “query-replace-read-args” use
Since emacs commit 3ee4cd6482abbabb06630a6c725277d42061eee7[1] the
retult value of “query-replace-read-args” changed which broke
“emms-tag-editor-replace-in-tag”.
* lisp/emms-tag-editor.el: Remove last two elements from
query-replace-read-args results.
Footnotes:
[1] http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=3ee4cd6482abbabb06630a6c725277d42061eee7
---
lisp/emms-tag-editor.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emms-tag-editor.el b/lisp/emms-tag-editor.el
index 85baf7d..c57a111 100644
--- a/lisp/emms-tag-editor.el
+++ b/lisp/emms-tag-editor.el
@@ -341,7 +341,7 @@ changes will only take effect on the tracks in the region."
"Query replace regexp in region"
"Query replace regexp")
t)))
- (butlast common))))
+ (butlast common 2))))
(let ((overlay (make-overlay (point-min) (1+ (point-min)))))
(overlay-put overlay 'face 'match)
(unwind-protect
--
cgit v1.2.3