Fix backspace advice with multi-character sp pairs

2020-07-23 01:04:18 -04:00 · 2020-07-23 01:04:18 -04:00 · 83faa84591
commit 83faa84591
parent da1030985d
1 changed files with 1 additions and 1 deletions
--- a/modules/config/default/autoload/text.el
+++ b/modules/config/default/autoload/text.el
@ -135,7 +135,7 @@ possible, or just one char if that's not possible."
                       (beg  (plist-get pair :beg))
                       (end  (plist-get pair :end)))
                  (cond ((and end beg (= end (+ beg (length op) (length cl))))
-                         (delete-char -1))
+                         (delete-char (- (length op))))
                        ((doom-surrounded-p pair 'inline 'balanced)
                         (delete-char -1 killflag)
                         (delete-char 1)