branch: externals/objed
commit fea114824e11fdae7871fb3b5ddf4ed2472cbda0
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
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)
