anchor.diff:    nil)
   
   (defun serialize-key-chord (key-chord &key normalize)
  -  ;; TODO: Make use of keycode?
  -  ;; TODO: Case opposite to Caps-Lock status?
     "When NORMALIZE is non-nil, remove the shift modifier and upcase the keys."
     (let ((modifiers (copy-list (key-chord-modifiers key-chord))))
       (when (and normalize
  
positive.code: (defmethod set-key ((map keymap) key-sequence-string command)
    "Bind KEY-SEQUENCE-STRING to COMMAND in MAP.
  
  A sequence of \"C-x\" \"C-s\" \"C-a\" will be broken up into three keys for the
  mode map, which are
  
    \"C-x\" \"C-s\" \"C-a\" - points to COMMAND
    \"C-x\" \"C-s\"         - set to \"prefix\"
    \"C-x\"                 - set to \"prefix\"
  
  When a key is set to #'prefix it will not consume the stack, so that a
  sequence of keys longer than one key-chord can be recorded."
    (let ((key-sequence (key key-sequence-string)))
      (setf (gethash key-sequence (table map)) command)
      ;; generate prefix representations
  
negative.code:                    &allow-other-keys)
    ;; TODO: Add option to define-key over the keymaps of all instantiated modes.
    "Bind KEY to COMMAND.
     The KEY command transforms key chord strings to valid key sequences.
  
     Examples:
  
    ;; Only affect the first mode of the current buffer:
    (define-key \"C-c C-c\" 'reload
  