diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-09-17 22:00:26 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-09-17 22:00:26 -0700 |
| commit | 74be3de16c3df82ec788bd1da4ea1fccc64f7d8a (patch) | |
| tree | cba151213e89439e5ee97e87881b14de6a91fba9 | |
| parent | 0a9600e02887b2d9b581ae9ae8f2ecba69a973b5 (diff) | |
| download | emacs-74be3de16c3df82ec788bd1da4ea1fccc64f7d8a.tar.gz | |
* semantic/find.el (semantic-brute-find-first-tag-by-name):
Replace obsolete function assoc-ignore-case with assoc-string.
| -rw-r--r-- | lisp/cedet/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/cedet/semantic/find.el | 6 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 2a3b53be5db..61d79b16cb0 100644 --- 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 6670074c0f9..351c6163e2b 100644 --- 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) |