[armedbear-cvs] r14360 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat Jan 19 09:35:45 2013
New Revision: 14360

Log:
add #\Delete character name (found in McCLIM sources)

Modified:
   trunk/abcl/src/org/armedbear/lisp/LispCharacter.java

Modified: trunk/abcl/src/org/armedbear/lisp/LispCharacter.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispCharacter.java	Thu Jan 17 03:15:14 2013	(r14359)
+++ trunk/abcl/src/org/armedbear/lisp/LispCharacter.java	Sat Jan 19 09:35:45 2013	(r14360)
@@ -578,7 +578,7 @@
       return 27;
     if (lower.equals("space") || lower.equals("sp"))
       return ' ';
-    if (lower.equals("rubout") || lower.equals("del"))
+    if (lower.equals("rubout") || lower.equals("del") || lower.equals("delete"))
       return 127;
     if (lower.startsWith("u")) {
       int length = lower.length();