Commit da0752f9 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

Replace obsolete function assoc-ignore-case with assoc-string.
parent 347ae3e1
2013-09-12 Glenn Morris <rgm@gnu.org>
* semantic/find.el (semantic-find-first-tag-by-name):
Replace obsolete function assoc-ignore-case with assoc-string.
2013-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* semantic/grammar.el (semantic-grammar-mode): Use define-derived-mode.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment