anchor.diff:  
   (add-gesture-command-to-table '(#\y :control)
   			      'cmd-yank
  +			      *simple-area-gesture-table*)
  +
  +(add-gesture-command-to-table '(#\t :control)
  +			      'cmd-transpose-chars
   			      *simple-area-gesture-table*)
   
   #+nil
  
positive.code: (add-gesture-command-to-table '(:right :meta)
  			      'forward-word
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\b :meta)
  			      'backward-word
  
negative.code: (add-gesture-command-to-table '(:left :meta)
  			      'backward-word
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(:left :control)
  			      'backward-word
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\backspace :meta)
  			      'backwards-delete-word
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(#\backspace :control)
  			      'backwards-delete-word
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\d :meta)
  			      'delete-word
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(#\delete :meta)
  			      'delete-word
  			      *simple-area-gesture-table*)
  (add-gesture-command-to-table '(#\delete :control)
  			      'delete-word
  			      *simple-area-gesture-table*)
  
  