anchor.diff:  (add-gesture-command-to-table '(#\p :control)
   			      'up-line
   			      *simple-area-gesture-table*)
  +(add-gesture-command-to-table '(:up)
  +			      'up-line
  +			      *simple-area-gesture-table*)
   
   (add-gesture-command-to-table '(#\n :control)
  +			      'down-line
  +			      *simple-area-gesture-table*)
  +(add-gesture-command-to-table '(:down)
   			      'down-line
   			      *simple-area-gesture-table*)
   
  
positive.code: (add-gesture-command-to-table '(#\f :control)
  			      'forward-character
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\b :control)
  			      'backward-character
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\f :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 '(#\backspace :meta)
  			      'backwards-delete-word
  
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))
  