eliminate some dead code (showuld have been removed in an earlier commit)

This commit is contained in:
Robby Findler 2012-09-19 06:08:03 -05:00
parent f1dd6be88b
commit ae87169d7e

View File

@ -993,8 +993,6 @@ If the namespace does not, they are colored the unbound color.
;; need to check this first so syncheck:clear-arrows will work
[(not arrow-records)
(values #f #f #f #f)]
[(and popup-menu (send popup-menu get-popup-target))
(values latent-pos latent-text latent-eles latent-tooltip)]
[(and x y)
(define-values (pos text) (get-pos/text-dc-location x y))
(define arrow-record (and text pos (hash-ref arrow-records text #f)))
@ -1025,7 +1023,6 @@ If the namespace does not, they are colored the unbound color.
(invalidate-bitmap-cache))
(define popup-menu #f)
(define mouse-admin #f) ; editor admin for the last mouse move
(define mouse-x #f) ; last known mouse position
(define mouse-y #f)