[elpa] externals/xr 74cc24c 1/3: Simplify: use preceding-char instead of buffer-substring

[Mattias Engdegård]

branch: externals/xr
commit 74cc24ca64016316ed669c4a42e4a76a05c6a2de
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Simplify: use preceding-char instead of buffer-substring
---
 xr.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/xr.el b/xr.el
index 2a3570d..6e56172 100644
--- a/xr.el
+++ b/xr.el
@@ -287,9 +287,7 @@
        ;; - not special at beginning of sequence or after ^
        ((and (looking-at (rx (any "*?+") (opt "?")))
              sequence
-             (not (and (eq (car sequence) 'bol)
-                       (string-equal (buffer-substring (1- (point)) (point))
-                                     "^"))))
+             (not (and (eq (car sequence) 'bol) (eq (preceding-char) ?^))))
         (let ((operator (match-string 0)))
           (goto-char (match-end 0))
           (setq sequence (cons (xr--postfix operator (car sequence))
@@ -298,9 +296,7 @@
        ;; \{..\} - not special at beginning of sequence or after ^
        ((and (looking-at (rx "\\{"))
              sequence
-             (not (and (eq (car sequence) 'bol)
-                       (string-equal (buffer-substring (1- (point)) (point))
-                                     "^"))))
+             (not (and (eq (car sequence) 'bol) (eq (preceding-char) ?^))))
         (forward-char 2)
         (if (looking-at (rx (opt (group (one-or-more digit)))
                             (opt (group ",")