Fix case-sensitivity in 'complete-tag'

* lisp/progmodes/etags.el (complete-tag): Bind
'completion-ignore-case', so that 'completion-in-region' is
affected by it.  This fixes a bug made in 30 Apr 2010, when this
function was refactored to use
'tags-completion-at-point-function'.  Reported by Morgan Willcock
<morgan@ice9.digital>.

(cherry picked from commit a4473afefe1a0f171ac6e811853836dd675f93d2)

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 476037eb8bdaf4ea360b0bea4e11fe4872e083b9..597612196fda83cd23a9f2be75a1e11cf63cfafa 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -2065,7 +2065,8 @@ for \\[find-tag] (which see)."
       (user-error "%s"
                   (substitute-command-keys
                    "No tags table loaded; try \\[visit-tags-table]")))
-  (let ((comp-data (tags-completion-at-point-function)))
+  (let ((comp-data (tags-completion-at-point-function))
+        (completion-ignore-case (find-tag--completion-ignore-case)))
     (if (null comp-data)
        (user-error "Nothing to complete")
       (completion-in-region (car comp-data) (cadr comp-data)