adjust indentation so that it treats only symbols as things with

special indentation

(this could only come about if the regexp specification in the prefernces
matched (the printed out) version of strings, so it wouldn't happen with
the default preferences)

gui-lib/framework/private/racket.rkt

@@ -625,8 +625,12 @@
            (define id-end (get-forward-sexp contains))
            (and (and id-end (> id-end contains))
                 (let ([text (get-text contains id-end)])
-                  (or (get-keyword-type text tabify-prefs)
-                      'other))))
+                  (cond
+                    [(member (classify-position contains) '(keyword symbol))
+                     (or (get-keyword-type text tabify-prefs)
+                         'other)]
+                    [else
+                     'other]))))
          (define (procedure-indent)
            (case (get-proc)
              [(begin define) 1]