anchor.diff:    request-data)
   
   (defun mode-covered-by-auto-mode-p (mode auto-mode enable-p)
  -  (or (non-rememberable-mode-p mode)
  +  (or (member mode (non-rememberable-modes auto-mode) :test #'mode-equal)
         (let ((matching-rule (matching-auto-mode-rule
                               (url (buffer auto-mode))
                               (buffer auto-mode))))
  
positive.code: 
  (defun auto-mode-handler (request-data)
    (let* ((auto-mode (find-submode (buffer request-data) 'auto-mode))
           ;; We need to suppress prompting when auto-mode modifies modes.
           (*prompt-on-mode-toggle* nil)
           (web-mode (find-submode (buffer request-data) 'web-mode))
           (previous-url
             (unless (history-empty-p (history web-mode))
  
negative.code:                          (and enable-p (last-active-modes auto-mode)))
                  :test #'mode-equal))))
  
  (declaim (ftype (function (string) list) url-infer-match))
  (defun url-infer-match (url)
    "Infer the best `test' for `auto-mode-rule', based on the form of URL.
  