anchor.diff:                            after
                             #'search-forward-symbol
                             #'search-backward-symbol
  -                          t))
  +                          :query t))
  
positive.code:                                   new-string
                                    *isearch-search-forward-function*
                                    *isearch-search-backward-function*
                                    nil))))))
  
  (define-command isearch-next-highlight (n) ("p")
    (alexandria:when-let ((string (buffer-value (current-buffer) 'isearch-redisplay-string)))
  
negative.code:                           after
                            #'search-forward-regexp
                            #'search-backward-regexp
                            :query t))
  
  (define-command query-replace-symbol (before after)
      ((read-query-replace-args))
  