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: 	      (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))
  
  