From c3322ca05db5c8e92f644112af8eaa0c4fb3dc28 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 22 Jun 2016 20:44:29 -0500 Subject: [PATCH] adjust indentation so that hyphens at the start of sexp causes subsequent lines to not indent --- gui-lib/framework/private/racket.rkt | 3 ++- gui-test/framework/tests/racket.rkt | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/gui-lib/framework/private/racket.rkt b/gui-lib/framework/private/racket.rkt index b76eaad6..6d55ff5c 100644 --- a/gui-lib/framework/private/racket.rkt +++ b/gui-lib/framework/private/racket.rkt @@ -708,7 +708,8 @@ (- id-end contains) 0)) (cond - [(first-sexp-is-keyword? contains) + [(or (first-sexp-is-keyword? contains) + (sexp-is-all-hyphens? contains)) (visual-offset contains)] [(second-sexp-is-ellipsis? contains) (visual-offset contains)] diff --git a/gui-test/framework/tests/racket.rkt b/gui-test/framework/tests/racket.rkt index 1081a521..3969355a 100644 --- a/gui-test/framework/tests/racket.rkt +++ b/gui-test/framework/tests/racket.rkt @@ -177,6 +177,8 @@ "(#:x 0\n 1)") (test-indentation "(a b c d\n---)" "(a b c d\n ---)") +(test-indentation "[---- \"β\"\na" + "[---- \"β\"\n a") (define (test-magic-square-bracket which before after)