[mcclim-cvs] CVS mcclim/Goatee

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Goatee
In directory clnet:/tmp/cvs-serv8924

Modified Files:
	goatee-command.lisp 
Log Message:
Change #\Delete to #\Rubout, fixing problem with clisp/win32, and
resolving OpenMCL confusion.



--- /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp	2006/03/14 12:27:24	1.22
+++ /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp	2006/11/21 22:59:12	1.23
@@ -285,10 +285,7 @@
 			      'delete-character
 			      *simple-area-gesture-table*)
 
-;;; XXX In OpenMCL Darwin, #\Delete and #\Backspace map to the same
-;;; character (bs)! This is not the place for silly conditionals; do
-;;; we have to punt on CL characters, hack our own read table, or what?
-(add-gesture-command-to-table '(#-openmcl #\Delete #+openmcl #\DEL)
+(add-gesture-command-to-table '(#\Rubout)
 			      'delete-character
 			      *simple-area-gesture-table*)