fixed problem with completions

svn: r10337

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<%>))
   

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

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