fix repl code completion (broke when refactoring key bindings)
authorD Herring <dherring@at.tentpost.dot.com>
Sat, 12 Nov 2011 07:21:12 +0000 (02:21 -0500)
committerD Herring <dherring@at.tentpost.dot.com>
Sat, 12 Nov 2011 07:21:12 +0000 (02:21 -0500)
main.lisp

index 2f41bcf..a0b105a 100644 (file)
--- a/main.lisp
+++ b/main.lisp
      (list *key-reformat* 'on-re-indent t)
      (list *key-macro-expand* 'on-macro-expand t)
      (list *key-copy-to-repl* 'on-copy-sexp-to-repl t)
-     ;; code-complete was suppressed, even though an implementation existed...
-     (list *key-code-complete* 'on-code-complete)
+     ;; suppress code-complete; it needs special treatment
+     (list *key-code-complete* 'on-code-complete t)
      ;; lookup should be suppressed unless (plaintextp txt)
      (list *key-lookup* 'on-lookup-definition))))
 
                            (declare (ignore evt))
                            ;;(format t "~%calling ~A" (second binding))
                            (funcall (second binding) text)))))
+    (add-key-binding text *key-code-complete*
+                     (lambda (evt)
+                       (declare (ignore evt))
+                       (on-code-complete listener)))
     (ltk:bind text "<Escape>" (lambda (evt) (declare (ignore evt)) (clear listener)) :exclusive t)
     (ltk:bind text "<Key-bracketleft>"
       (lambda (evt) (on-left-bracket-key text evt)) :exclusive t)