anchor.diff:      (:p "To extend the bindings of a specific mode, you can extend the mode with "
           (:code "define-configuration") " and extend its binding scheme with "
           (:code "define-scheme") ". For example:")
  -    (:pre (:code "
  -\(define-configuration base-mode
  +    (:pre (:code "(define-configuration base-mode
     ((keymap-scheme
       (define-scheme (:name-prefix \"my-base\" :import %slot-default%)
         scheme:vi-normal
  
positive.code:                      "Create configuration file"))))))
  
      (:p "Example:")
      (:pre (:code "
  \(define-configuration buffer
    ((default-modes (append '(no-script-mode) %slot-default%))))"))
      (:p "The above turns on the 'no-script-mode' (disables JavaScript) by default for
  every buffer.")
  
negative.code:      (:li "Modes 'enable' and 'disable' hooks."))
      (:p "For instance, if you want to force 'old.reddit.com' over 'www.reddit.com', you
  can set a hook like the following in your configuration file:")
      (:pre (:code "(defun old-reddit-handler (request-data)
    (let ((url (url request-data)))
      (setf (url request-data)
            (if (search \"reddit.com\" (quri:uri-host url))
  