Only try to build the Syntax Check popup menu if there is Syntax Check data

2011-11-20 23:22:22 -07:00 · 2011-11-20 23:22:22 -07:00 · d65b85ac55
commit d65b85ac55
parent a23808dd95
1 changed files with 1 additions and 1 deletions
--- a/collects/drracket/private/syncheck/gui.rkt
+++ b/collects/drracket/private/syncheck/gui.rkt
@ -1021,7 +1021,7 @@ If the namespace does not, they are colored the unbound color.
                (start-arrow-draw-timer syncheck-arrow-delay))
              
              (let/ec break
-                (when (send event button-down? 'right)
+                (when (and arrow-records (send event button-down? 'right))
                  (define menu
                    (let-values ([(pos text) (get-pos/text event)])
                      (syncheck:build-popup-menu pos text)))