--- a/TerminalView.st	Mon May 01 10:28:47 2017 +0200
+++ b/TerminalView.st	Wed May 03 16:29:15 2017 +0200
@@ -1191,6 +1191,23 @@
         self cursorToEndOfLine.
         ^ true.
     ].
+
+    aKey == #Ctrlr ifTrue:[
+        lineBufferHistory size >= lineBufferHistoryPosition ifTrue:[
+            lineBufferHistory at:lineBufferHistoryPosition put:lineBuffer.
+        ] ifFalse:[
+            lineBufferHistory add:lineBuffer.
+        ].
+        
+        clearLine value.
+
+        lineBuffer := lineBufferHistory at:lineBufferHistoryPosition ifAbsent:[lineBufferHistory last].
+        self insertStringAtCursor:lineBuffer.
+        lineBufferCursorPosition := lineBuffer size + 1.
+        self makeCursorVisible.
+        ^ true.    
+    ].
+    
     aKey == #CursorLeft ifTrue:[
         lineBufferCursorPosition > 1 ifFalse:[
             self beep.  
@@ -1260,6 +1277,8 @@
         ^ true.    
     ].
     ^ false.
+
+    "Modified: / 03-05-2017 / 16:28:56 / cg"
 !
 
 shellTerminated