anchor.diff:  (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 '(#\d :meta)
  +(add-gesture-command-to-table '(#\delete :control)
   			      'delete-word
   			      *simple-area-gesture-table*)
   
  
positive.code:     (error "Last operation was not a yank!"))
    (yank-prev *kill-ring* *buffer* *insert-extent*))
  
  ;; Line motion
  
  (defun up-line (&key &allow-other-keys)
  
negative.code: 
  (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
  