branch: elpa/pcre2el
commit 9b23ecd63d28e0262ef789d187785ad0cfde0b32
Author: haowg <haoweiguoyouxi...@163.com>
Commit: GitHub <nore...@github.com>
Fix: Obsolete `buffer-substring` function replaced with
`buffer-substring-no-properties`
* Replaced `buffer-substring` with `buffer-substring-no-properties` to
avoid using an obsolete function.
* Updated code to use the recommended function for extracting substrings
from the current buffer.
---
pcre2el.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/pcre2el.el b/pcre2el.el
index 12c24f87db..9e5a911a92 100644
--- a/pcre2el.el
+++ b/pcre2el.el
@@ -660,7 +660,7 @@ Note that this does not apply to backreferences."
(reb-do-update))
(defun rxt--toggle-flag-minibuffer (char)
- (setf (buffer-substring (minibuffer-prompt-end) (point-max))
+ (setf (buffer-substring-no-properties (minibuffer-prompt-end) (point-max))
(rxt--toggle-flag-string (minibuffer-contents) char))
(when
(and (= (point) (minibuffer-prompt-end))
@@ -2493,7 +2493,7 @@ in character classes as outside them."
(let ((begin (point)))
(search-forward ")" nil 'go-to-end)
(rxt-error "Unrecognized PCRE extended construction `(*%s'"
- (buffer-substring begin (point))))))
+ (buffer-substring-no-properties begin (point))))))
;; Parse the remainder of the subgroup
(unless shy (cl-incf rxt-subgroup-count))
