* semantic/find.el (semantic-brute-find-first-tag-by-name):

Replace obsolete function assoc-ignore-case with assoc-string.

2 files changed, 5 insertions, 4 deletions

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)