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: 	    modifier-state
  	    (keyboard-event-character gesture))
      (cdr (assoc modifier-state
                  (gethash (or (keyboard-event-character gesture)
                               (keyboard-event-key-name gesture))
                           table nil)))))
  
  (defmethod lookup-gesture-command (gesture table)
    (declare (ignore gesture table))
  