original commit: 0660548a38f943584cac4c8eb8c0a79103b6843c
This commit is contained in:
Matthew Flatt 1999-04-23 12:14:19 +00:00
parent 738978facf
commit 727a63c1e8

View File

@ -517,7 +517,8 @@
(set-caret-owner #f 'display) (set-caret-owner #f 'display)
(set-position (set-position
(min first-pos last-pos) (min first-pos last-pos)
(max first-pos last-pos))) (max first-pos last-pos)
#f #t 'local))
#t))]) #t))])
(unless (string=? string "") (unless (string=? string "")
(when reset-search-anchor? (when reset-search-anchor?