(find-tag-tag, complete-tag): Bind

completion-ignore-case based on tags-case-fold-search, so that
case-sensitivity of tag completion matches that of tag search.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index ed9959a1c02bc106c79b0dfc4c9c1e20ace36848..8d988f45341166a01ed2bd7e7acedd8a8f436f8c 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -785,7 +785,10 @@ Assumes the tags table is the current buffer."
 
 ;; Read a tag name from the minibuffer with defaulting and completion.
 (defun find-tag-tag (string)
-  (let* ((default (funcall (or find-tag-default-function
+  (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
+                                    tags-case-fold-search
+                                  case-fold-search))
+        (default (funcall (or find-tag-default-function
                               (get major-mode 'find-tag-default-function)
                               'find-tag-default)))
         (spec (completing-read (if default
@@ -1910,7 +1913,10 @@ for \\[find-tag] (which see)."
       (error "%s"
             (substitute-command-keys
              "No tags table loaded; try \\[visit-tags-table]")))
-  (let ((pattern (funcall (or find-tag-default-function
+  (let ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
+                                   tags-case-fold-search
+                                 case-fold-search))
+       (pattern (funcall (or find-tag-default-function
                              (get major-mode 'find-tag-default-function)
                              'find-tag-default)))
        beg