[nongnu] elpa/iedit 3211c2ee6c 228/301: Merge branch 'master' of github.com:victorhge/iedit

[ELPA Syncer]

branch: elpa/iedit
commit 3211c2ee6cdc6c7fca280244f426b3aa8fbff3f5
Merge: 2221a517a8 890a11657c
Author: Victor Ren <victorhge@gmail.com>
Commit: Victor Ren <victorhge@gmail.com>

    Merge branch 'master' of github.com:victorhge/iedit
---
 iedit.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/iedit.el b/iedit.el
index 51e1c7ecf9..0bc4a1bdba 100644
--- a/iedit.el
+++ b/iedit.el
@@ -143,8 +143,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.")
 
@@ -470,6 +470,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 ()