diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2016-08-09 15:32:04 -0700 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2016-08-10 20:09:59 -0700 |
| commit | 7590c8029791e512012102ab0c07b2684e09d09d (patch) | |
| tree | 00fae95a3e7f8905a4217e21fdab15a02522e39a /scheme | |
| parent | 5edfb584bc5d5ae8b3e75a231227d2a22946eadb (diff) | |
| download | geiser-guile-7590c8029791e512012102ab0c07b2684e09d09d.tar.gz geiser-guile-7590c8029791e512012102ab0c07b2684e09d09d.tar.bz2 | |
Disable aggressive prefix assumption
This was causing significant typing delay with little to no benefit.
Disabled until a better solution can be found.
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index 70d7a02..6b7124f 100644 --- a/scheme/chicken/geiser/emacs.scm +++ b/scheme/chicken/geiser/emacs.scm @@ -250,9 +250,9 @@ (lambda (info) (string-has-prefix? (car info) prefix)) (symbol-information-list)))) - (if (and (null? found) (< 1 (string-length prefix))) - (find-symbol-information* (substring/shared prefix 1) (string-append skipped (substring prefix 0 1))) - (cons found skipped)))) + ;; (if (and (null? found) (< 1 (string-length prefix))) + ;; (find-symbol-information* (substring/shared prefix 1) (string-append skipped (substring prefix 0 1)))) + (cons found skipped))) (memoize `(find-symbol-information ,prefix) (lambda () |