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))
    (if (try-yank editor)
        (progn
  	 (buffer-cycle (editor-killring editor))
  	 (%yank editor))
        (beep editor)))
  
  (defun kill-to-eol (chord editor)
  
negative.code:   (declare (ignore chord))
    (multiple-value-bind (completions max-len) (editor-complete editor)
      (if completions
          (if (not (cdr completions))
              (editor-replace-word editor (car completions))
              (print-in-columns editor completions :width (+ max-len 2)))
          (beep editor))))
  
  (defun apropos-word (chord editor)
    (declare (ignore chord))
    (let* ((word (editor-word editor))
           (apropi (apropos-list word)))
      (if (null apropi)
          (beep editor)
          (let* ((longest 0)
                 (strings (mapcar (lambda (symbol)
                                    (declare (symbol symbol))
                                    (let ((str (prin1-to-string symbol)))
                                      (setf longest (max longest (length str)))
                                      (string-downcase str)))
                                  apropi)))
            (print-in-columns editor strings :width (+ longest 2))))))
  
  (defun describe-word (chord editor)
    (declare (ignore chord))
    (print-in-lines editor
                    (with-output-to-string (s)
                      (describe (read-from-string (editor-word editor)) s))))
  
  (defun toggle-insert (chord editor)
    (declare (ignore chord))
  