Re: Using re-builder

[Michael Slass]

biff314@yahoo.com (Phil_C) writes:

>When I copy a regex to the kill ring and then try to use it in
>something like "Query replace regex", I have to delete the extra "'s
>and \'s before it will work. Is there a way to copy it from re-builder
>without having to do that?


Try this:

(defun reb-copy-unquoted ()
  "Copy current RE into the kill ring for later insertion as unquoted."
  (interactive)
  (reb-update-regexp)
  (let ((re (with-temp-buffer
              (insert (reb-target-binding reb-regexp))
              (replace-string "\\\\" "\\" nil (point-min) (point-max))
              (buffer-substring (point-min) (point-max)))))
    (kill-new re)
    (message "Regexp copied to kill-ring")))

-- 
Mike Slass