mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* bindings.el (complete-symbol): Call semantic-ia-complete-symbol if

Browse source 
possible.

* cedet/semantic/ia.el (semantic-ia-complete-symbol): Make argument
optional.
This commit is contained in:
Chong Yidong 2009-12-05 22:01:00 +00:00
parent 212c5aef95
commit 9a594ee6ea
4 changed files with 30 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/cedet/semantic/ia.el
View file

@ -105,19 +105,21 @@ Supports caching."
symbols))
;;;###autoload
(defun semantic-ia-complete-symbol (point)
"Complete the current symbol at POINT.
(defun semantic-ia-complete-symbol (&optional pos)
"Complete the current symbol at POS.
If POS is nil, default to point.
Completion options are calculated with `semantic-analyze-possible-completions'."
(interactive "d")
(or pos (setq pos (point)))
;; Calculating completions is a two step process.
;;
;; The first analyzer the current context, which finds tags
;; for all the stuff that may be references by the code around
;; POINT.
;; POS.
;;
;; The second step derives completions from that context.
(let* ((a (semantic-analyze-current-context point))
(syms (semantic-ia-get-completions a point))
(let* ((a (semantic-analyze-current-context pos))
(syms (semantic-ia-get-completions a pos))
(pre (car (reverse (oref a prefix))))
)
;; If PRE was actually an already completed symbol, it doesn't