anchor.diff:  ;;; CASE CHANGES
   
   (flet ((frob-case (frob editor)
  -	 (with-editor-point-and-string ((point string) editor)
  -	   (let ((end (editor-next-word-end editor)))
  -	     (setf (get-string editor) (concat
  -					(subseq string 0 point)
  -					(funcall frob
  -						 (subseq string point end))
  -					(subseq string end))
  -		   (get-point editor) end)))))
  +         (with-editor-point-and-string ((point string) editor)
  +           (let ((end (editor-next-word-end editor)))
  +             (setf (get-string editor) (concat
  +                                        (subseq string 0 point)
  +                                        (funcall frob
  +                                                 (subseq string point end))
  +                                        (subseq string end))
  +                   (get-point editor) end)))))
   
     (defun upcase-word (chord editor)
       (declare (ignore chord))
  
positive.code:   (declare (ignore chord))
    (with-editor-point-and-string ((point string) editor)
      (let ((start (editor-sexp-start editor))
  	  (end (min (1+ (editor-sexp-end editor)) (length string))))
        (buffer-push (subseq string start end) (editor-killring editor))
        (setf (get-string editor) (concat (subseq string 0 start)
  					(subseq string end))
  	    (get-point editor) start))))
  
  (defun close-all-sexp (chord editor)
    (move-to-eol chord editor)
    (do ((string (get-string editor) (get-string editor)))
        ((not (find-open-paren string (length string))))
      (add-char (case (schar string (find-open-paren string (length string)))
  		    (#\( #\))
  		    (#\[ #\])
  		    (#\{ #\}))
  	      editor)))
  
  ;;; SIGNALS
  
  
negative.code:   (declare (ignore chord))
    (if (try-yank editor)
        (progn
           (buffer-cycle (editor-killring editor))
           (%yank editor))
        (beep editor)))
  
  (defun kill-to-eol (chord editor)
  