[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/pcre2el 34b35c0ba0 1/2: Use ‘reb-target-value’ instead of
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/pcre2el 34b35c0ba0 1/2: Use ‘reb-target-value’ instead of ‘reb-target-binding’ if available |
|
Date: |
Wed, 3 May 2023 16:02:42 -0400 (EDT) |
branch: elpa/pcre2el
commit 34b35c0ba0f4d0658705591467617e9d7b3c516c
Author: Matt Beshara <matt.beshara@rea-group.com>
Commit: Matt Beshara <matt.beshara@rea-group.com>
Use ‘reb-target-value’ instead of ‘reb-target-binding’ if available
Closes #51
---
pcre2el.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/pcre2el.el b/pcre2el.el
index 4294bf7b33..fa74c45b3a 100644
--- 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//")))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/pcre2el 34b35c0ba0 1/2: Use ‘reb-target-value’ instead of ‘reb-target-binding’ if available,
ELPA Syncer <=