Merge pull request #52 from mattbeshara/master

Use ‘reb-target-value’ instead of ‘reb-target-binding’ if available
joddie · May 3, 2023 · b941ed8 · b941ed8
2 parents 38c6f80 + 34b35c0
commit b941ed8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/pcre2el.el b/pcre2el.el
@@ -3124,7 +3124,9 @@ in character classes as outside them."
   (around rxt () activate compile)
   "This function is hacked for emulated PCRE syntax and regexp conversion."
   (if (eq reb-re-syntax 'pcre)
-      (let ((src (reb-target-binding reb-regexp-src)))
+      (let ((src (if (fboundp #'reb-target-value)
+                     (reb-target-value 'reb-regexp-src)
+                   (reb-target-binding reb-regexp-src))))
         (if src
             (insert "\n/" (replace-regexp-in-string "/" "\\/" src t t) "/")
           (insert "\n//")))