[nongnu] elpa/iedit 890a11657c 226/301: Merge pull request #66 from pstray/master

[ELPA Syncer]

branch: elpa/iedit
commit 890a11657ce56449fec13760bba6925235ad3926
Merge: 06f1f50939 7ab2509231
Author: victorhge <victorhge@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #66 from pstray/master
    
    Expand iedit-regexp-quote with passthrough
---
 iedit.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/iedit.el b/iedit.el
index dbdf62c297..7372f90421 100644
--- a/iedit.el
+++ b/iedit.el
@@ -146,8 +146,8 @@ use this variable:
                              (prefix-char (char-after (1- (car bound)))))
                         (if (memq prefix-char '(?$ ?% ?@ ?*))
                             (progn
-                              (setq iedit-occurrence-type-local 'other)
-                              (buffer-substring-no-properties (1- (car bound)) 
(cdr bound)))
+                              (setq iedit-occurrence-type-local 'regexp)
+                              (concat (regexp-quote 
(buffer-substring-no-properties (1- (car bound)) (cdr bound))) \"\\\\_>\"))
                           (buffer-substring-no-properties (car bound) (cdr 
bound))))))))
 '$%@*' will be included in the occurrences in perl mode.")
 
@@ -473,6 +473,7 @@ The candidate depends on the thing at point."
   (cl-case iedit-occurrence-type-local
     ('symbol (concat "\\_<" (regexp-quote exp) "\\_>"))
     ('word   (concat "\\<" (regexp-quote exp) "\\>"))
+    ('regexp exp)
     ( t      (regexp-quote exp))))
 
 (defun iedit-mark-sgml-pair ()