anchor.diff:    (set-key '(#\C-X #\C-W) nil key-map)
     (set-key '(#\C-X #\k) nil key-map)
     (set-key '(#\C-X #\b) nil key-map)
  -  (set-key '(#\C-X #\C-B) nil key-map))
  +  (set-key '(#\C-X #\C-B) nil key-map)
  +  (set-key #\C-C nil key-map))
   
   (defun editor-main (width height)
     (mezzanine.gui.font:with-font (font mezzanine.gui.font:*default-monospace-font* mezzanine.gui.font:*default-monospace-font-size*)
  
positive.code:     (setf (buffer-property buffer 'name) (unique-name new-name))
      (refresh-title)))
  
  ;;;; End command wrappers.
  
  (defun translate-command (editor character)
  
negative.code:   (set-key #\M-< 'move-beginning-of-buffer-command key-map)
    (set-key #\M-> 'move-end-of-buffer-command key-map)
    (set-key #\C-V 'scroll-up-command key-map)
    (set-key #\M-V 'scroll-down-command key-map)
    (set-key '(#\C-C #\C-C) 'eval-top-level-form-command key-map))
  
  (defun initialize-minibuffer-key-map (key-map)
    (initialize-key-map key-map)
  