diff options
author | Glenn Morris <rgm@gnu.org> | 2011-09-17 12:05:52 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2011-09-17 12:05:52 -0700 |
commit | 8f1383f7088802a12e4c41f18755b53f8bbebcf3 (patch) | |
tree | b913db82b7163c0a51bdb17275d37cee1eb6ae58 | |
parent | 0d26c1aa30fd1a867af6c0c7c426cf532dc49aec (diff) | |
download | emacs-8f1383f7088802a12e4c41f18755b53f8bbebcf3.tar.gz |
complete-tag fix for bug#9526
* lisp/progmodes/etags.el (complete-tag):
Fix call to completion-in-region. (cf info-complete).
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/progmodes/etags.el | 4 |
2 files changed, 8 insertions, 1 deletions
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$" |