anchor.diff:  (defun help (chord editor)
     (declare (ignore chord))
     (let ((pairs nil)
  -	(max-id 0)
  -	(max-f 0))
  +        (max-id 0)
  +        (max-f 0))
       (maphash (lambda (id function)
  -	       (let ((f (string-downcase (symbol-name function))))
  -		 (push (list id f) pairs)
  -		 (setf max-id (max max-id (length id))
  -		       max-f (max max-f (length f)))))
  -	     (editor-commands editor))
  +               (let ((f (string-downcase (symbol-name function))))
  +                 (push (list id f) pairs)
  +                 (setf max-id (max max-id (length id))
  +                       max-f (max max-f (length f)))))
  +             (editor-commands editor))
       (print-in-columns editor
  -		      (mapcar (lambda (pair)
  -				 (destructuring-bind (id f) pair
  -				   (with-output-to-string (s)
  -				     (write-string id s)
  -				     (loop repeat (- (1+ max-id) (length id))
  -					   do (write-char #\Space s))
  -				     (write-string f s))))
  -			      (nreverse pairs))
  -		      :width (+ max-id max-f 2))))
  +                      (mapcar (lambda (pair)
  +                                 (destructuring-bind (id f) pair
  +                                   (with-output-to-string (s)
  +                                     (write-string id s)
  +                                     (loop repeat (- (1+ max-id) (length id))
  +                                           do (write-char #\Space s))
  +                                     (write-string f s))))
  +                              (nreverse pairs))
  +                      :width (+ max-id max-f 2))))
   
   (defun unknown-command (chord editor)
     (newline editor)
  
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: ;;; 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)))))
  
    (defun upcase-word (chord editor)
      (declare (ignore chord))
  