mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 23:21:22 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Replace obsolete function assoc-ignore-case with assoc-string.
This commit is contained in:
Glenn Morris 2013-09-17 22:00:26 -07:00
parent 0a9600e028
commit 74be3de16c
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/cedet/ChangeLog
View file

@ -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.

6
lisp/cedet/semantic/find.el
View file

@ -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)