changeset 47290:eb2e18d1144b

(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.
author Francesco Potortì <pot@gnu.org>
date Fri, 06 Sep 2002 15:12:15 +0000
parents e85548b04ce6
children 38a3c65c8ebb
files lisp/progmodes/etags.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Fri Sep 06 13:42:23 2002 +0000
+++ b/lisp/progmodes/etags.el	Fri Sep 06 15:12:15 2002 +0000
@@ -785,7 +785,10 @@
 
 ;; 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 @@
       (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