Changeset 14371

Timestamp:

02/13/13 19:26:40 (11 years ago)

Author:

Mark Evenson

Message:

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

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

File:

• branches/1.1.x/src/org/armedbear/lisp/LispCharacter.java (modified) (1 diff)

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

@@ -579 +579 @@
     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")) {