diff options
author | Glenn Morris <[email protected]> | 2013-09-12 13:23:48 -0400 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2013-09-12 13:23:48 -0400 |
commit | da0752f93768a43bb411955cb27c5438462ec210 (patch) | |
tree | aefe8675f212b998dfd3d3d8e20d0e45830da5b6 | |
parent | 347ae3e1436e9705d21c140b29b8e9c818ed86ab (diff) |
* lisp/cedet/semantic/find.el (semantic-find-first-tag-by-name):
Replace obsolete function assoc-ignore-case with assoc-string.
-rw-r--r-- | lisp/cedet/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/cedet/semantic/find.el | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index f5528202bb..6be1c44743 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,8 @@ +2013-09-12 Glenn Morris <[email protected]> + + * semantic/find.el (semantic-find-first-tag-by-name): + Replace obsolete function assoc-ignore-case with assoc-string. + 2013-09-11 Stefan Monnier <[email protected]> * semantic/grammar.el (semantic-grammar-mode): Use define-derived-mode. diff --git a/lisp/cedet/semantic/find.el b/lisp/cedet/semantic/find.el index f660c69ec3..6670074c0f 100644 --- a/lisp/cedet/semantic/find.el +++ b/lisp/cedet/semantic/find.el @@ -265,9 +265,9 @@ TABLE is a semantic tags table. See `semantic-something-to-tag-table'." "Find the first tag with NAME in TABLE. NAME is a string. TABLE is a semantic tags table. See `semantic-something-to-tag-table'. -This routine uses `assoc' to quickly find the first matching entry." - (funcall (if semantic-case-fold 'assoc-ignore-case 'assoc) - name (semantic-something-to-tag-table table))) +Respects `semantic-case-fold'." + (assoc-string name (semantic-something-to-tag-table table) + semantic-case-fold)) (defmacro semantic-find-tags-by-name (name &optional table) "Find all tags with NAME in TABLE. |