From 8f1383f7088802a12e4c41f18755b53f8bbebcf3 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sat, 17 Sep 2011 12:05:52 -0700
Subject: [PATCH] complete-tag fix for bug#9526
* lisp/progmodes/etags.el (complete-tag):
Fix call to completion-in-region. (cf info-complete).
---
lisp/ChangeLog | 5 +++++
lisp/progmodes/etags.el | 4 +++-
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49a8f931fb2..cf549a936fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-17 Glenn Morris <rgm@gnu.org>
+
+ * progmodes/etags.el (complete-tag):
+ Fix call to completion-in-region. (Bug#9526)
+
2011-09-17 Juri Linkov <juri@jurta.org>
* textmodes/ispell.el (ispell-word): Add to the error message
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index a3300077909..d321e9c1388 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -2070,7 +2070,9 @@ for \\[find-tag] (which see)."
(let ((comp-data (tags-completion-at-point-function)))
(if (null comp-data)
(error "Nothing to complete")
- (apply 'completion-in-region comp-data))))
+ (completion-in-region (car comp-data) (cadr comp-data)
+ (nth 2 comp-data)
+ (plist-get (nthcdr 3 comp-data) :predicate)))))
(dolist (x '("^No tags table in use; use .* to select one$"
"^There is no default tag$"
--
2.39.5