got rid of edits%

original commit: ef77b315668903e702171df65cf70eff1faf23de
This commit is contained in:
Robby Findler 1996-07-08 13:05:21 +00:00
parent 4e697e4cc6
commit 425227136b

View File

@ -148,23 +148,6 @@
(sequence
(apply super-init args)))))
(define edits%
(class-asi wx:snip%
(private
[edits null])
(public
[add
(lambda (edit)
(unless (let loop ([e edits])
(cond
[(null? e) #f]
[else (if (eq? this (car e))
#t
(loop (cdr e)))]))
(set! edits (cons edit edits))))])))
(define edits (make-object edits%))
(define make-edit%
(lambda (super%)
(class (make-std-buffer% super%) args
@ -403,7 +386,6 @@
range-rectangles)))])
(sequence
(apply super-init args)
(send edits add this)
(let ([keymap (get-keymap)])
(mred:keymap:set-keymap-error-handler keymap)
(mred:keymap:set-keymap-implied-shifts keymap)