From 42f50a7c08b924874d3c7a0c03cf671037d0cb89 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 19 Apr 2015 07:22:17 -0500 Subject: [PATCH] only set the extension to .rkt if it looks like it isn't set to anything useful already --- gui-lib/framework/private/racket.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/gui-lib/framework/private/racket.rkt b/gui-lib/framework/private/racket.rkt index 6ed5cb35..0e76dbd0 100644 --- a/gui-lib/framework/private/racket.rkt +++ b/gui-lib/framework/private/racket.rkt @@ -1338,12 +1338,12 @@ (values lexeme type paren start end backup-delta new-mode)])) (define/override (put-file text sup directory default-name) - (parameterize ([finder:default-extension "rkt"] - #; ; no need for the following, since it's the default - [finder:default-filters '(["Racket Sources" "*.rkt;*.scrbl;*.ss;*.scm"] - ["Any" "*.*"])]) - ;; don't call the surrogate's super, since it sets the default extension - (sup directory default-name))) + ;; don't call the surrogate's super, since it sets the default extension + (cond + [(equal? (finder:default-extension) "") + (parameterize ([finder:default-extension "rkt"]) + (sup directory default-name))] + [else (sup directory default-name)])) (super-new (get-token (lambda (in offset mode) (racket-lexer-wrapper in offset mode))) (token-sym->style short-sym->style-name)