[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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112813: Replace obsolete function lisp-complete-symbol,
Glenn Morris <=