* 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 2a3b53be5dbeba2a08ed4fffaeddfcdd62aee850..61d79b16cb0e6f4ac8ae44ec23bbd02110224829 100644 (file)
--- 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 6670074c0f9755f37a5e32806e9bf1d35a8426df..351c6163e2bc86162d9f0388af67cd3c4707e32c 100644 (file)
--- 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)