emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r112813: Replace obsolete function li


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r112813: Replace obsolete function lisp-complete-symbol
Date: Sat, 01 Jun 2013 11:04:59 -0700
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 112813
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-06-01 11:04:59 -0700
message:
  Replace obsolete function lisp-complete-symbol
  
  * lisp/cedet/semantic/grammar.el (semantic-grammar-complete):
  Replace the obsolete function lisp-complete-symbol.
modified:
  lisp/cedet/ChangeLog
  lisp/cedet/semantic/grammar.el
=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2013-06-01 18:02:58 +0000
+++ b/lisp/cedet/ChangeLog      2013-06-01 18:04:59 +0000
@@ -1,5 +1,8 @@
 2013-06-01  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'lisp/cedet/semantic/grammar.el'
--- a/lisp/cedet/semantic/grammar.el    2013-05-11 23:55:46 +0000
+++ b/lisp/cedet/semantic/grammar.el    2013-06-01 18:04:59 +0000
@@ -1484,7 +1484,10 @@
   (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)))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]