291c291,293
< (add-gesture-command-to-table '(#-openmcl #\Delete #+openmcl #\DEL)
---
> (add-gesture-command-to-table '(#-(or openmcl (and clisp win32)) #\Delete
> 				#+openmcl #\DEL
> 				#+(and clisp win32)  #\Rubout)
339c341,343
< (add-gesture-command-to-table '(#\delete :meta)
---
> 
> (add-gesture-command-to-table '(#-(and clisp win32) #\delete
> 				#+(and clisp win32) #\rubout :meta)
342c346,348
< (add-gesture-command-to-table '(#\delete :control)
---
> 
> (add-gesture-command-to-table '(#-(and clisp win32) #\delete
> 				#+(and clisp win32) #\rubout :control)
