From c1217de228fe158ed13b72b862069b7fc100d50a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 18 Jun 2008 05:48:16 +0000
Subject: [PATCH] fixed problem with completions

svn: r10337
---
 collects/drscheme/private/drsig.ss                  | 1 +
 collects/drscheme/private/language-configuration.ss | 9 ++++++++-
 collects/drscheme/private/module-language.ss        | 2 +-
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/collects/drscheme/private/drsig.ss b/collects/drscheme/private/drsig.ss
index 53fb85803a..b4288d9d15 100644
--- a/collects/drscheme/private/drsig.ss
+++ b/collects/drscheme/private/drsig.ss
@@ -115,6 +115,7 @@
      get-default-language-settings
      settings-preferences-symbol
      get-all-scheme-manual-keywords
+     get-all-manual-keywords
      add-built-in-languages
      not-a-language-language<%>))
   
diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss
index 0ce1a6e989..15e94bf0ce 100644
--- a/collects/drscheme/private/language-configuration.ss
+++ b/collects/drscheme/private/language-configuration.ss
@@ -1311,6 +1311,13 @@
             (set! words (text:get-completions/manuals '(scheme/base scheme/contract))))
           words)))
     
+    (define get-all-manual-keywords
+      (let ([words #f])
+        (λ ()
+          (unless words
+            (set! words (text:get-completions/manuals #f)))
+          words)))
+    
     ;; add-built-in-languages : -> void
     (define (add-built-in-languages)
       (let* ([words #f]
@@ -1324,7 +1331,7 @@
                     (define/augment (capability-value key)
                       (cond
                         [(eq? key 'drscheme:autocomplete-words) 
-                         (get-all-scheme-manual-keywords)]
+                         (get-all-manual-keywords)]
                         [else (drscheme:language:get-capability-default key)]))
                     (define/override (create-executable setting parent program-filename)
                       (let ([executable-fn
diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index a51bd03f05..f89f6dc89f 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -52,7 +52,7 @@
       (define/augment (capability-value key)
         (cond
           [(eq? key 'drscheme:autocomplete-words) 
-           (drscheme:language-configuration:get-all-scheme-manual-keywords)]
+           (drscheme:language-configuration:get-all-manual-keywords)]
           [else (drscheme:language:get-capability-default key)]))
       
       ;; config-panel : as in super class