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

adjust uses of after-load-file to use the success? flag

Browse Source
This commit is contained in:
Robby Findler 2011-10-08 10:42:32 -05:00
parent ed38297c97
commit fcc720f43e
2 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/module-language.rkt
View File

@ -1519,7 +1519,7 @@
(inner (void) after-delete start end))
(define/augment (after-load-file success?)
(buffer-modified)
(when success? (buffer-modified))
(inner (void) after-load-file success?))
(super-new)))

34
collects/framework/private/text.rkt
View File

@ -295,10 +295,11 @@
(define/augment (after-load-file success?)
(inner (void) after-load-file success?)
(set! ranges (make-hash))
(set! ranges-low 0)
(set! ranges-high 0)
(set! ranges-list #f))
(when success?
(set! ranges (make-hash))
(set! ranges-low 0)
(set! ranges-high 0)
(set! ranges-list #f)))
(define/public (highlight-range start end color [caret-space? #f] [priority 'low] [style 'rectangle])
(unless (let ([exact-pos-int?
@ -1816,18 +1817,19 @@
(mixin ((class->interface text%)) (crlf-line-endings<%>)
(inherit get-filename use-file-text-mode)
(define/augment (after-load-file success?)
(cond
[(preferences:get 'framework:always-use-platform-specific-linefeed-convention)
(use-file-text-mode #t)]
[else
(define unix-endings?
(with-handlers ((exn:fail:filesystem? (λ (x) #t)))
(call-with-input-file (get-filename)
(λ (port)
(regexp-match? unix-line-endings-regexp port)))))
(use-file-text-mode
(and (eq? (system-type) 'windows)
(not unix-endings?)))])
(when success?
(cond
[(preferences:get 'framework:always-use-platform-specific-linefeed-convention)
(use-file-text-mode #t)]
[else
(define unix-endings?
(with-handlers ((exn:fail:filesystem? (λ (x) #t)))
(call-with-input-file (get-filename)
(λ (port)
(regexp-match? unix-line-endings-regexp port)))))
(use-file-text-mode
(and (eq? (system-type) 'windows)
(not unix-endings?)))]))
(inner (void) after-load-file success?))
(super-new)