[elpa] externals/embark 4215d79df5 2/2: embark-eval-replace: with prefix, don't quote strings

[ELPA Syncer]

branch: externals/embark
commit 4215d79df51e14d4fbe66237fd9264a54661c22d
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    embark-eval-replace: with prefix, don't quote strings
    
    This enables using embark-eval-replace to produce a portion of text
    you want in a buffer. For example, you can run isearch-forward-regexp,
    press M-e to edit the regexp, type in an (rx ...) form, and use
    embark-eval-replace to replace the form with the actual regexp.
---
 embark.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/embark.el b/embark.el
index 756a0abd80..afa3f3e18c 100644
--- a/embark.el
+++ b/embark.el
@@ -3841,14 +3841,16 @@ With a prefix argument EDEBUG, instrument the code for 
debugging."
                (pp-display-expression result "*Pp Eval Output*"))))
     (eval-defun edebug)))
 
-(defun embark-eval-replace ()
-  "Evaluate region and replace with evaluated result."
-  (interactive)
+(defun embark-eval-replace (noquote)
+  "Evaluate region and replace with evaluated result.
+If NOQUOTE is non-nil (interactively, if called with a prefix
+argument), no quoting is used for strings."
+  (interactive "P")
   (let ((beg (region-beginning))
         (end (region-end)))
     (save-excursion
       (goto-char end)
-      (insert (prin1-to-string
+      (insert (format (if noquote "%s" "%S")
                (eval (read (buffer-substring beg end)) lexical-binding)))
       (delete-region beg end))))