suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust indentation so that it treats only symbols as things with

Browse Source 
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)
This commit is contained in:
Robby Findler 2016-02-09 13:43:20 -06:00
parent 9411eb44c4
commit e9e2940138
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gui-lib/framework/private/racket.rkt
View File

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