anchor.diff:  (add-gesture-command-to-table '(#\delete :meta)
   			      'delete-word
   			      *simple-area-gesture-table*)
  +(add-gesture-command-to-table '(#\d :meta)
  +			      'delete-word
  +			      *simple-area-gesture-table*)
   
   (add-gesture-command-to-table '(#\a :control)
   			      'beginning-line
   			      *simple-area-gesture-table*)
  +(add-gesture-command-to-table '(:home)
  +			      'beginning-line
  +			      *simple-area-gesture-table*)
   
   (add-gesture-command-to-table '(#\e :control)
   			      'end-line
   			      *simple-area-gesture-table*)
  +(add-gesture-command-to-table '(:end)
  +			      'end-line
  +			      *simple-area-gesture-table*)
   
   (add-gesture-command-to-table '(#\k :control)
   			      'kill-line
  
positive.code: (add-gesture-command-to-table '(#\p :control)
  			      'up-line
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\n :control)
  			      'down-line
  			      *simple-area-gesture-table*)
  
  
negative.code: (add-gesture-command-to-table '(#\f :control)
  			      'forward-character
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(:right)
  			      'forward-character
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\b :control)
  			      'backward-character
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(:left)
  			      'backward-character
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\f :meta)
  			      'forward-word
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(:right :meta)
  			      'forward-word
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\b :meta)
  			      'backward-word
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(:left :meta)
  			      'backward-word
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\backspace :meta)
  			      'backwards-delete-word
  