[Emacs-diffs] trunk r114368: * semantic/find.el (semantic-brute-find-first-tag-by-name):

[Glenn Morris]

------------------------------------------------------------
revno: 114368
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-09-17 22:00:26 -0700
message:
  * semantic/find.el (semantic-brute-find-first-tag-by-name):
  Replace obsolete function assoc-ignore-case with assoc-string.
modified:
  lisp/cedet/ChangeLog           changelog-20100919015713-3rbr456yray5m84f-1
  lisp/cedet/semantic/find.el    find.el-20091113204419-o5vbwnq5f7feedwu-11277

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2013-09-18 04:57:25 +0000
+++ b/lisp/cedet/ChangeLog      2013-09-18 05:00:26 +0000
@@ -1,5 +1,8 @@
 2013-09-18  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/cedet/semantic/find.el'
--- a/lisp/cedet/semantic/find.el       2013-09-12 17:23:48 +0000
+++ b/lisp/cedet/semantic/find.el       2013-09-18 05:00:26 +0000
@@ -457,13 +457,11 @@
   "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)