diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-19 22:03:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-19 22:03:36 +0000 |
| commit | 31a1c4779ebf070fe4fabe06383b84a1938f900f (patch) | |
| tree | f832c42c26c47a6f5f766256f74da55145c35e51 /lisp/progmodes/sym-comp.el | |
| parent | bed4c9727800580ebfb81d8f76db4d0ab22aabdb (diff) | |
| download | emacs-31a1c4779ebf070fe4fabe06383b84a1938f900f.tar.gz | |
(symbol-complete): Use completion-in-region.
Diffstat (limited to 'lisp/progmodes/sym-comp.el')
| -rw-r--r-- | lisp/progmodes/sym-comp.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/progmodes/sym-comp.el b/lisp/progmodes/sym-comp.el index ed49c9d1f83..a0f572266bd 100644 --- a/lisp/progmodes/sym-comp.el +++ b/lisp/progmodes/sym-comp.el @@ -143,14 +143,9 @@ to be set buffer-locally. Variables `symbol-completion-symbol-function', (lambda (str) (car-safe (cdr-safe (funcall symbol-completion-transform-function - str)))))) - (minibuffer-completion-table completions) - (minibuffer-completion-predicate predicate) - (ol (make-overlay (- (point) (length pattern)) (point) nil nil t))) - (overlay-put ol 'field 'sym-comp) - (unwind-protect - (call-interactively 'minibuffer-complete) - (delete-overlay ol)))) + str))))))) + (completion-in-region (- (point) (length pattern)) (point) + completions predicate))) (eval-when-compile (require 'hippie-exp)) |