anchor.diff:                       "C-h s" 'describe-slot
                        "C-h k" 'describe-key
                        "C-h b" 'describe-bindings
  -                     "C-o" 'load-file
                        "M-x" 'execute-command
                        "C-x 5 2" 'make-window
                        "C-x 5 0" 'delete-current-window
  -                     "C-x 5 1" 'delete-window
  -                     "C-/" 'reopen-buffer
  -                     "C-x C-f" 'open-file)
  +                     "C-x 5 1" 'delete-window)
   
                       scheme:vi-normal
                       (list
                        "Z Z" 'quit
                        "[" 'switch-buffer-previous
                        "]" 'switch-buffer-next
  -                     "C-pageup" 'switch-buffer-previous
  -                     "C-pagedown" 'switch-buffer-next
                        "g b" 'switch-buffer
                        "d" 'delete-buffer
                        "D" 'delete-current-buffer
  
positive.code:                      "C-[" 'switch-buffer-previous
                       "C-]" 'switch-buffer-next
                       "C-x b" 'switch-buffer
                       "C-x k" 'delete-buffer
                       "C-w" 'delete-current-buffer
                       "C-x C-k" 'delete-current-buffer
  
negative.code:                     scheme:emacs
                      (list
                       "C-x C-c" 'quit
                       "C-x k" 'delete-buffer ; Emacs' default behaviour is to query.
                       "C-x left" 'switch-buffer-previous
                       "C-x right" 'switch-buffer-next
                       "C-M-l" 'copy-url
                       "C-M-i" 'copy-title
                       "C-h C-h" 'help
  