anchor.diff:  (defvar *last-command* nil)
   (defvar *insert-extent* nil)
   
  +;; This doesn't match the emacs behavior exactly, but I think these make more
  +;; sense for working in lisp. +,*,and others are what's missing. 
  +(defparameter *word-delimiters* (concatenate 'string "() {}[]-:;,.#'`&\""
  +                                             '(#\newline #\linefeed #\tab #\return))
  +  "Characters which delimit words for the Meta-F/B/etc movement commands.")
  +
  +
   (defun add-gesture-command-to-table (gesture-spec command-name table)
     (multiple-value-bind (gesture-name modifier-bits)
         (if (atom gesture-spec)
  
positive.code: 
  (defun backward-character (&key &allow-other-keys)
    (setf (point* *buffer*) (forward-char* *buffer* -1)))
  
  (defun end-line (&key &allow-other-keys)
    (setf (point* *buffer*) (end-of-line* *buffer*)))
  
negative.code: 			      '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
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\delete :meta)
  			      'delete-word
  			      *simple-area-gesture-table*)
  
  (add-gesture-command-to-table '(#\a :control)
  			      'beginning-line
  			      *simple-area-gesture-table*)
  