anchor.diff:  			      'delete-character
   			      *simple-area-gesture-table*)
   
  +(add-gesture-command-to-table '(#\Delete)
  +			      'delete-character
  +			      *simple-area-gesture-table*)
  +
   (add-gesture-command-to-table '(#\f :control)
   			      'forward-character
   			      *simple-area-gesture-table*)
  
positive.code: 			      'insert-character
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table #\delete
  			      'backwards-delete-character
  			      *simple-area-gesture-table*)
  
  
negative.code: 	      (setf (last-command area) command)))
  	  (redisplay-area area)))))
  
  ;; Utilities for the word movement commands
  
  (defun move-until (movefn test)
    (let ((line (point* *buffer*)))
      (loop do (funcall movefn)        
        until (or (not (eq line (point* *buffer*)))
                  (funcall test (char-ref *buffer* (point *buffer*)))))))
  
  (defun move-until-test-first (movefn test)
    (loop for c = (char-ref *buffer* (point *buffer*))
      until (funcall test c)
      do (funcall movefn)))
  
  (defun insert-character (&key input-gesture &allow-other-keys)
    (insert *buffer* input-gesture))
  
  