[elpa] externals/objed fea1148 148/166: Fixes #54, identifier movement for symbols with regex chars

[Clemens Radermacher]

branch: externals/objed
commit fea114824e11fdae7871fb3b5ddf4ed2472cbda0
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fixes #54, identifier movement for symbols with regex chars
---
 objed-objects.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index bf82c83..415c801 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -2432,7 +2432,8 @@ non-nil the indentation block can contain empty lines."
                       (buffer-substring (car bds) (cdr bds)))))
         (when bds
           (goto-char (cdr bds)))
-        (if (re-search-forward (format "\\_<%s\\_>" sym) nil t)
+        (if (re-search-forward (format "\\_<%s\\_>"
+                                       (regexp-quote sym)) nil t)
             (goto-char (match-beginning 0))
           (goto-char (car bds))
           (when (or (eq real-this-command #'objed-next-identifier)
@@ -2449,7 +2450,8 @@ non-nil the indentation block can contain empty lines."
         (when bds
           (when (looking-back "\\_>" 1)
             (goto-char (car bds)))
-          (if (re-search-backward (format "\\_<%s\\_>" sym) nil t)
+          (if (re-search-backward (format "\\_<%s\\_>"
+                                          (regexp-quote sym)) nil t)
               (goto-char (match-beginning 0))
             (goto-char (car bds))
             (when (or (eq real-this-command #'objed-prev-identifier)