From 7225c83207c8f28eeb919c39337e1e44582dff2c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 1 Jun 2013 11:04:59 -0700 Subject: [PATCH] Replace obsolete function lisp-complete-symbol * lisp/cedet/semantic/grammar.el (semantic-grammar-complete): Replace the obsolete function lisp-complete-symbol. --- lisp/cedet/ChangeLog | 3 +++ lisp/cedet/semantic/grammar.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index d4be88e5e27..2c4adf4c0a6 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,5 +1,8 @@ 2013-06-01 Glenn Morris + * semantic/grammar.el (semantic-grammar-complete): + Replace the obsolete function lisp-complete-symbol. + * semantic/analyze/fcn.el (semantic-tag-similar-p): Autoload. * srecode/args.el, srecode/java.el: Require ede. diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 2d53c857c1e..ce658cd5d54 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el @@ -1484,7 +1484,10 @@ expression then Lisp symbols are completed." (interactive) (if (semantic-grammar-in-lisp-p) ;; We are in lisp code. Do lisp completion. - (lisp-complete-symbol) + (let ((completion-at-point-functions + (append '(lisp-completion-at-point) + completion-at-point-functions))) + (completion-at-point)) ;; We are not in lisp code. Do rule completion. (let* ((nonterms (semantic-find-tags-by-class 'nonterminal (current-buffer))) (sym (car (semantic-ctxt-current-symbol))) -- 2.39.2