Commit 85422524 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Add character name for non-breaking space

Use a human readable name for character 160, #\No-break_space, which
is used in sbcl, ccl and clisp, and permits spinneret to load.

Thanks to Javier Olaechea.
parent dbf81a9c
...@@ -266,6 +266,9 @@ public final class LispCharacter extends LispObject ...@@ -266,6 +266,9 @@ public final class LispCharacter extends LispObject
case 127: case 127:
sb.append("Rubout"); sb.append("Rubout");
break; break;
case 160:
sb.append("No-break_space");
break;
default: default:
if (name!=null) if (name!=null)
sb.append(name); sb.append(name);
...@@ -580,6 +583,8 @@ public final class LispCharacter extends LispObject ...@@ -580,6 +583,8 @@ public final class LispCharacter extends LispObject
return ' '; return ' ';
if (lower.equals("rubout") || lower.equals("del") || lower.equals("delete")) if (lower.equals("rubout") || lower.equals("del") || lower.equals("delete"))
return 127; return 127;
if (lower.equals("no-break_space"))
return 160;
if (lower.startsWith("u")) { if (lower.startsWith("u")) {
int length = lower.length(); int length = lower.length();
if (length > 1 && length < 5) { if (length > 1 && length < 5) {
...@@ -632,6 +637,8 @@ public final class LispCharacter extends LispObject ...@@ -632,6 +637,8 @@ public final class LispCharacter extends LispObject
return "Space"; return "Space";
case 127: case 127:
return "Rubout"; return "Rubout";
case 160:
return "No-break_space";
} }
if (c<0 || c>255) return null; if (c<0 || c>255) return null;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment