--- a/display.rc	Thu Dec 16 12:22:24 1993 +0100
+++ b/display.rc	Mon Dec 20 18:48:43 1993 +0100
@@ -19,17 +19,20 @@
 map bindValue:#Find      to:#Cmds.
 map bindValue:#FindNext  to:#Cmdf.
 map bindValue:#FindPrev  to:#Cmdb.
-map bindValue:#SelectAll to:#CmdA.	"that is cmd-shift-a"
+map bindValue:#SelectAll to:#CmdA.      "that is cmd-shift-a"
 
 map bindValue:#Accept    to:#Cmda.
 map bindValue:#Explain   to:#Cmde.
 
-map bindValue:#BeginOfLine to:#Ctrlb.
+map bindValue:#BeginOfLine to:#Ctrla.
 map bindValue:#EndOfLine   to:#Ctrle.
 
 map bindValue:#SearchMatchingParen to:#Ctrlm.
 map bindValue:#SelectMatchingParen to:#Cmdm.
 
+map bindValue:#SelectToEnd to:#CtrlE.           "that is ctrl-shift-e"
+map bindValue:#SelectFromBeginning to:#CtrlA.   "that is ctrl-shift-a"
+
 "*
  * international characters - map to iso8859 values
  *"
@@ -115,38 +118,42 @@
 display := displayVar.
 
 displayVar notNil ifTrue:[
-    (displayVar startsWith:':0') ifTrue:[
+    ((displayVar startsWith:':0') or:[displayVar startsWith:'unix:0'])  ifTrue:[
         display := OperatingSystem getHostName.
     ] ifFalse:[
         (displayVar endsWith:':0') ifTrue:[
             display := displayVar copyTo:(displayVar size - 2)
         ]
     ].
-    "if there is a corresponding file ..."
-    s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').
-    s notNil ifTrue:[
-        displayType := display.
-        s close.
-    ].
-    "otherwise ..."
-    displayType isNil ifTrue:[
-        "just an example - stuff could also be hardwired here ..."
-        display notNil ifTrue:[
-            (display startsWith:'clam') ifTrue:[
-                displayType := 'next'
-            ].
-            (display startsWith:'porty') ifTrue:[
-                displayType := 'portable'
-            ].
-            (display startsWith:'blue') ifTrue:[
-                displayType := 'iris'
-            ].
-            (display startsWith:'sun') ifTrue:[
-                displayType := 'sun'
-            ].
-            (display startsWith:'slsv') ifTrue:[
-                "all those machines here at SEL are suns"
-                displayType := 'sun'
+    display isNil ifTrue:[
+	'cannot determine display I am running on' printNewline.
+    ] ifFalse:[
+        "if there is a corresponding file ..."
+        s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').
+        s notNil ifTrue:[
+            displayType := display.
+            s close.
+        ].
+        "otherwise ..."
+        displayType isNil ifTrue:[
+            "just an example - stuff could also be hardwired here ..."
+            display notNil ifTrue:[
+                (display startsWith:'clam') ifTrue:[
+                    displayType := 'next'
+                ].
+                (display startsWith:'porty') ifTrue:[
+                    displayType := 'portable'
+                ].
+                (display startsWith:'blue') ifTrue:[
+                    displayType := 'iris'
+                ].
+                (display startsWith:'sun') ifTrue:[
+                    displayType := 'sun'
+                ].
+                (display startsWith:'slsv') ifTrue:[
+                    "all those machines here at SEL are suns"
+                    displayType := 'sun'
+                ].
             ].
         ].
     ].