From c31bb258f51ac25e45fc9b56f4a4f015d818c9c5 Mon Sep 17 00:00:00 2001 From: naryl <> Date: Wed, 9 Oct 2024 23:40:32 +0300 Subject: [PATCH] Use character-offset instead of forward-char --- extensions/paredit-mode/paredit-mode.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extensions/paredit-mode/paredit-mode.lisp b/extensions/paredit-mode/paredit-mode.lisp index 6a7ae1986..b88bc1de6 100644 --- a/extensions/paredit-mode/paredit-mode.lisp +++ b/extensions/paredit-mode/paredit-mode.lisp @@ -316,7 +316,7 @@ link : http://www.daregada.sakuraweb.com/paredit_tutorial_ja.html (with-point ((from p)) (skip-whitespace-backward from) (delete-between-points from p))) - (forward-char)) + (character-offset (current-point) 1)) ((ignore-errors (or (scan-lists p 1 1)) t) (with-point ((new-p p)) (character-offset new-p -1) @@ -324,7 +324,7 @@ link : http://www.daregada.sakuraweb.com/paredit_tutorial_ja.html (with-point ((p new-p)) (skip-whitespace-backward p) (delete-between-points p new-p) - (forward-char)))) + (character-offset (current-point) 1)))) (t (insert-character p c)))))