--- a/keyboard.rc	Sat Jun 20 16:05:39 1998 +0200
+++ b/keyboard.rc	Thu Jul 09 22:46:04 1998 +0200
@@ -155,6 +155,53 @@
 	    ].
 	]
 	'.
+"/
+"/ macro to indent by 1
+"/
+macros at:#F93 put:'
+	"indent selected line-range 
+	 by 1 space (i.e. to the right)"
+
+	self selectionStartLine notNil ifTrue:[    
+	    self selectionStartLine to:self selectionEndLine-1 do:[:lineNr |
+		|line|
+
+		line := self listAt:lineNr.
+		line notNil ifTrue:[
+		    line notEmpty ifTrue:[
+			line := '' '' , line.
+			self withoutRedrawAt:lineNr put:line.
+			self invalidateLine:lineNr.
+		    ]
+		]
+	    ].
+	]
+	'.
+
+"/
+"/ macro to undent by 1
+"/
+macros at:#F92 put:'
+	"undent selected line-range 
+	 by 1 space (i.e. to the left)"
+
+	self selectionStartLine notNil ifTrue:[    
+	    self selectionStartLine to:self selectionEndLine-1 do:[:lineNr |
+		|line|
+
+		line := self listAt:lineNr.
+		line notNil ifTrue:[
+		    line notEmpty ifTrue:[
+			(line startsWith:'' '') ifTrue:[
+			    line := line copyFrom:2.
+			    self withoutRedrawAt:lineNr put:line.
+			    self invalidateLine:lineNr.
+			]
+		    ]
+		]
+	    ].
+	]
+	'.
 !
 
 "*
@@ -426,6 +473,14 @@
 
 map bindValue:#SaveAs        to:#CmdS.
 
+"/ F5      -> macroF99 (unix command ouput paste)
+"/ CtrlTab -> macroF98 (toggle 4/8 tabs)
+"/ F10     -> macroF95 (indent by 4)
+"/ F9      -> macroF94 (undent by 4)
+"/ F12     -> macroF93 (indent by 1)
+"/ F11     -> macroF92 (undent by 1)
+"/ F3      -> commentSelection
+"/ F4      -> uncommentSelection
 
 map bindValue:#CmdF99  to:#F5.
 map bindValue:#CmdF98 to:#CtrlTab.
@@ -434,6 +489,9 @@
 map bindValue:#CmdF95 to:#F10.
 map bindValue:#CmdF94 to:#F9.
 
+map bindValue:#CmdF93 to:#F12.
+map bindValue:#CmdF92 to:#F11.
+
 map bindValue:#CommentSelection to:#F3.
 map bindValue:#UncommentSelection to:#F4.