unbreak check syntax

get-current-tab may not be the right tab to replay the trace,
now that online expansion runs other tabs when the current tab
is up to date.
This commit is contained in:
Robby Findler 2013-01-27 07:28:52 -06:00
parent 295bb1e85e
commit 3e5a9ca3cd

View File

@ -1584,7 +1584,7 @@ If the namespace does not, they are colored the unbound color.
(when (set-syncheck-running-mode bx)
;; reset any previous check syntax information
(let ([tab (get-current-tab)])
(let ([tab (send defs-text get-tab)])
(send tab syncheck:clear-error-message)
(send tab syncheck:clear-highlighting)
(send defs-text syncheck:reset-docs-im))