[armedbear-cvs] r14371 - branches/1.1.x/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Feb 13 11:26:40 2013
New Revision: 14371

Log:
Backport r14360 | rschlatte | 2013-01-19 18:35:45 +0100 (Sat, 19 Jan 2013) | 1 line

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

Modified:
   branches/1.1.x/src/org/armedbear/lisp/LispCharacter.java

Modified: branches/1.1.x/src/org/armedbear/lisp/LispCharacter.java
==============================================================================
--- branches/1.1.x/src/org/armedbear/lisp/LispCharacter.java	Wed Feb 13 11:24:39 2013	(r14370)
+++ branches/1.1.x/src/org/armedbear/lisp/LispCharacter.java	Wed Feb 13 11:26:40 2013	(r14371)
@@ -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();