anchor.diff:      (cond ((continue-flag :abbrev)
              (when (null *rest-words*)
                (setf *rest-words* *all-words*))
  -           (delete-between-points *start-point* point)
  +           (let ((n (- (point-charpos point) *start-charpos*)))
  +             (line-offset point 0 *start-charpos*)
  +             (delete-character point n))
              (insert-string point (first *rest-words*))
              (setf *rest-words* (rest *rest-words*)))
             (t
  
positive.code: 
  (defvar *rest-words* nil)
  (defvar *all-words* nil)
  (defvar *start-point* nil)
  
  (define-key *global-keymap* (kbd "M-/") 'abbrev)
  (define-command abbrev () ()
  
negative.code:              (delete-character point (- (length src-word)) nil)
               (setf *rest-words* (rest words))
               (setf *all-words* words)
               (setf *start-charpos* (point-charpos point))
               (insert-string point (first words)))))))
  