Twiddle-characters - transpose previous two characters |û  if end of line, twiddle two preceding chars û1~ ý  (and end of buffer looks like end of line) ý  otherwise, twiddle char under cursor with -  preceding (by delete; move forw.; retrv)  Yank nth killed item from kill stack 12~‘>  pull n-1 st stack item (item 0 is top...) Ù  yank using redefined old ^Y -  clean up stack  ëKill-sentence - Kill from cursor to end of sentence  set mark at current location å  go forward n sentences   kill from mark to point  ôTwiddle-words - transpose two preceding words âÿ  kill preceding word (back, then kill back) æ  forward arg words...   insert a space (kludge, kludge...) -  retrieve killed word and clean up stack  kKill-buffer - if current buffer, change buffers also   put two copies of buffer name on stack B  put current buffer name on stack |û  if they're equal... û&  ... ask him for buffer to change to   Go to end of buffer /  Slashify buffer name just in case...   Get file name in buffer... -  and throw it away