Replace obsolete function lisp-complete-symbol

* lisp/cedet/semantic/grammar.el (semantic-grammar-complete):
Replace the obsolete function lisp-complete-symbol.

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index d4be88e5e2794621b29f7a8ac634628f13fc9655..2c4adf4c0a684123595d39f28f6a54e24cf3d9ee 100644 (file)
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,5 +1,8 @@
 2013-06-01  Glenn Morris  <rgm@gnu.org>
 
+       * 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 2d53c857c1eb76d080ef78cffa9b505ecd970d2f..ce658cd5d544a998d57603f9a9705621d2d0faa4 100644 (file)
--- 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)))