Skip to content

Instantly share code, notes, and snippets.

@mooz

mooz/re-builder-call-query-replace-regexp.el

Created March 28, 2011 14:29
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mooz/890562 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mooz/890562 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. mooz created this gist Mar 28, 2011.
    13 changes: 13 additions & 0 deletions re-builder-call-query-replace-regexp.el
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,13 @@
    (defun my-reb-query-replace-regexp ()
    "Call `query-replace-regexp' with current regexp of RE-builder"
    (interactive)
    (reb-update-regexp)
    (let ((re (reb-target-binding reb-regexp)))
    (flet ((query-replace-read-from
    (prompt regexp-flag)
    ;; body
    re))
    (pop-to-buffer reb-target-buffer)
    (call-interactively 'query-replace-regexp))))

    (define-key reb-mode-map (kbd "C-c %") 'my-reb-query-replace-regexp)