[elpa] externals/substitute 75298b6f50 2/2: Merge pull request #3 from kandread/fix/special-strings

[ELPA Syncer]

branch: externals/substitute
commit 75298b6f508925b23efeafdd14449c69f54a463e
Merge: 3c80ceeb4f ccf35a6509
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #3 from kandread/fix/special-strings
    
    Handle strings with escape sequences
---
 substitute.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/substitute.el b/substitute.el
index 0c39c4f66a..9598a35196 100644
--- a/substitute.el
+++ b/substitute.el
@@ -186,7 +186,7 @@ Each entry is a list of the symbol and its buffer 
positions.")
       (save-restriction
         (substitute--setup-scope target scope)
         (while (funcall search-fn target nil t)
-          (push (list (match-string-no-properties 0)
+          (push (list (regexp-quote (match-string-no-properties 0))
                       (match-beginning 0)
                       (match-end 0))
                 substitute--last-matches))))
@@ -249,7 +249,7 @@ target at point.
 Report a `user-error' if no target is found."
   (cond
    ((region-active-p)
-    (buffer-substring-no-properties (region-beginning) (region-end)))
+    (regexp-quote (buffer-substring-no-properties (region-beginning) 
(region-end))))
    (t
     (if-let ((thing (thing-at-point 'symbol t)))
         (format "\\_<%s\\_>" thing)