From: Glenn Morris <rgm@gnu.org>
Date: Wed, 18 Sep 2013 05:00:26 +0000 (-0700)
Subject: * semantic/find.el (semantic-brute-find-first-tag-by-name):
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1541
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74be3de16c3df82ec788bd1da4ea1fccc64f7d8a;p=emacs.git

* semantic/find.el (semantic-brute-find-first-tag-by-name):
Replace obsolete function assoc-ignore-case with assoc-string.
---

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 2a3b53be5db..61d79b16cb0 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,5 +1,8 @@
 2013-09-18  Glenn Morris  <rgm@gnu.org>
 
+	* semantic/find.el (semantic-brute-find-first-tag-by-name):
+	Replace obsolete function assoc-ignore-case with assoc-string.
+
 	* semantic/complete.el (tooltip-mode, tooltip-frame-parameters)
 	(tooltip-show): Declare.
 
diff --git a/lisp/cedet/semantic/find.el b/lisp/cedet/semantic/find.el
index 6670074c0f9..351c6163e2b 100644
--- a/lisp/cedet/semantic/find.el
+++ b/lisp/cedet/semantic/find.el
@@ -457,13 +457,11 @@ TABLE is a tag table.  See `semantic-something-to-tag-table'."
   "Find a tag NAME within STREAMORBUFFER.  NAME is a string.
 If SEARCH-PARTS is non-nil, search children of tags.
 If SEARCH-INCLUDE was never implemented.
+Respects `semantic-case-fold'.
 
 Use `semantic-find-first-tag-by-name' instead."
   (let* ((stream (semantic-something-to-tag-table streamorbuffer))
-         (assoc-fun (if semantic-case-fold
-                        #'assoc-ignore-case
-                      #'assoc))
-	 (m (funcall assoc-fun name stream)))
+	 (m (assoc-string name stream semantic-case-fold)))
     (if m
 	m
       (let ((toklst stream)