anchor.diff:  
   (defun backward-character (&key &allow-other-keys)
     (setf (point* *buffer*) (forward-char* *buffer* -1)))
  +
  +;; Why must I handle both flexivector and buffer bounds errors below?
  +(defun forward-word (&key &allow-other-keys)
  +  (handler-case
  +      (progn
  +        (move-until-test-first #'forward-character #'(lambda (c) (not (find c *word-delimiters* :test #'char=))))
  +        (move-until-test-first #'forward-character #'(lambda (c) (find c *word-delimiters* :test #'char=))))
  +    (buffer-bounds-error ())
  +    (flexivector-bounds-error ())))
  +
  +(defun backward-word (&key &allow-other-keys)
  +  (handler-case
  +      (progn
  +        (move-until #'backward-character #'(lambda (c) (not (find c *word-delimiters* :test #'char=))))
  +        (move-until #'backward-character #'(lambda (c) (find c *word-delimiters* :test #'char=)))
  +        (forward-character))
  +    (buffer-bounds-error ())
  +    (flexivector-bounds-error ())))
  +
  +(defun backwards-delete-word (&key &allow-other-keys)
  +  (flet ((current-loc ()  (multiple-value-bind (line pos)
  +                              (point* *buffer*)
  +                            (make-instance 'location :line line :pos pos))))
  +    (let ((end-location (current-loc)))
  +      (backward-word)
  +      (kill-region *kill-ring* *buffer* (current-loc) end-location))))
  +
  +(defun delete-word (&key &allow-other-keys)
  +  (flet ((current-loc ()  (multiple-value-bind (line pos)
  +                              (point* *buffer*)
  +                            (make-instance 'location :line line :pos pos))))
  +    (let ((start-location (current-loc)))
  +      (forward-word)
  +      (kill-region *kill-ring* *buffer* start-location (current-loc)))))
   
   (defun end-line (&key &allow-other-keys)
     (setf (point* *buffer*) (end-of-line* *buffer*)))
  
positive.code: (defvar *last-command* nil)
  (defvar *insert-extent* nil)
  
  (defun add-gesture-command-to-table (gesture-spec command-name table)
    (multiple-value-bind (gesture-name modifier-bits)
        (if (atom gesture-spec)
  
negative.code: 			      '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*)
  