From 8a294d9090a0991cdd2db1e9f6290c84e7a32af4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Fri, 6 Sep 2002 15:12:15 +0000 Subject: [PATCH] (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. --- lisp/progmodes/etags.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index ed9959a1c02..8d988f45341 100644 --- 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 -- 2.39.2