diff -rN -u old-yi/Yi/Event.hs new-yi/Yi/Event.hs
--- old-yi/Yi/Event.hs	2009-04-07 19:09:26.000000000 +0200
+++ new-yi/Yi/Event.hs	2009-04-07 19:09:26.000000000 +0200
@@ -10,6 +10,7 @@
 import Data.Bits
 import Data.Char (chr,ord)
 import Data.Monoid
+import Data.List ( (!!) )
 import Yi.Prelude
 import Prelude ()
 
@@ -35,7 +36,7 @@
   where prettyKey (KFun i) = 'F' : show i
         prettyKey (KASCII c) = [c]
         prettyKey key = tail $ show key
-        prettyModifier m = [head $ show m]
+        prettyModifier m = [ show m !! 1]
       
 
 
diff -rN -u old-yi/Yi/Keymap/Emacs.hs new-yi/Yi/Keymap/Emacs.hs
--- old-yi/Yi/Keymap/Emacs.hs	2009-04-07 19:09:26.000000000 +0200
+++ new-yi/Yi/Keymap/Emacs.hs	2009-04-07 19:09:26.000000000 +0200
@@ -90,6 +90,9 @@
   putA highlightSelectionA True
   pointB >>= setSelectionMarkPointB
 
+selectAll ::BufferM()
+selectAll =  botB >> placeMark >> topB >> setVisibleSelection True
+
 deleteB' :: BufferM ()
 deleteB' = adjBlock (-1) >> deleteN 1
 
@@ -233,6 +236,7 @@
                  , char '0'      ?>>! closeWindow
                  , char '1'      ?>>! closeOtherE
                  , char '2'      ?>>! splitE
+                 , char 'h'      ?>>! selectAll
                  , char 's'      ?>>! askSaveEditor
                  , ctrlCh 'c'    ?>>! askQuitEditor
                  , ctrlCh 'f'    ?>>! findFile