[elpa] 08/09: Fix #32: handle upstream change in query-replace-read-args

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 3686751d64c3b61c7c62639ae5fdea02d0fca1d0
Author: Leo Liu <address@hidden>
Date:   Tue Feb 18 00:18:15 2014 +0800

    Fix #32: handle upstream change in query-replace-read-args
---
 ggtags.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index c381c3c..1cd40bf 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -657,7 +657,10 @@ If not in navigation mode, do a grep on FROM first.
 
 Note: the regular expression FROM must be supported by both
 Global and Emacs."
-  (interactive (query-replace-read-args "Query replace (regexp)" t t))
+  (interactive
+   ;; Note: in 24.4 query-replace-read-args returns a list of 4 elements.
+   (let ((args (query-replace-read-args "Query replace (regexp)" t t)))
+     (list (nth 0 args) (nth 1 args) (nth 2 args))))
   (unless (bound-and-true-p ggtags-navigation-mode)
     (let ((ggtags-auto-jump-to-first-match nil))
       (ggtags-grep from)))