Commit 31a1c477 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(symbol-complete): Use completion-in-region.

parent bed4c972
2009-11-19 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/sym-comp.el (symbol-complete): Use completion-in-region.
* filecache.el (file-cache-add-file): Use push and cons.
(file-cache-delete-file-regexp): Use push.
(file-cache-complete): Use completion-in-region.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment