 	       (region-beginning))
 	   (if (and transient-mark-mode mark-active)
 	       (region-end)))))
-
   (perform-replace
    (concat "\\(" string-1 "\\)\\|" string-2)
    '(replace-eval-replacement replace-quote

  :config
  (progn
    (setq vr--feedback-limit nil)
    (bind-keys
     :map modi-mode-map
     ("C-M-%"   . vr/query-replace) ;; replace the emacs default query-replace-regexp
     ("C-c q"   . vr/query-replace))

    ;; Don't bind `C-c C-q' in modi-mode-map to prevent that from overriding
    ;; the default org-mode binding to `org-set-tags'
    (bind-keys
     ("C-c C-q" . vr/mc-mark))

    (bind-keys
     :map region-bindings-mode-map

  :config
  (progn
    (global-anzu-mode +1)

    (set-face-attribute 'anzu-mode-line nil :foreground "lightblue" :weight 'bold)
    (setq anzu-mode-lighter                "")
    (setq anzu-search-threshold            1000)
    (setq anzu-replace-to-string-separator " => ")

    (bind-keys
     :map modi-mode-map
     ("M-%"   . anzu-query-replace) ; override binding for `query-replace'
     ("C-c r" . anzu-query-replace))

    (bind-keys
     :map region-bindings-mode-map
     ("]" . anzu-query-replace-at-cursor-thing))))

;; Visual Regular Expression search/replace
(req-package visual-regexp
