emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/paredit 4fdd1b7 172/224: In test.el, use (delete-char -1),


From: ELPA Syncer
Subject: [nongnu] elpa/paredit 4fdd1b7 172/224: In test.el, use (delete-char -1), not backward-delete-char.
Date: Sat, 7 Aug 2021 09:22:43 -0400 (EDT)

branch: elpa/paredit
commit 4fdd1b73a712a194bc0e7de401aa3e6c16df719e
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    In test.el, use (delete-char -1), not backward-delete-char.
    
    @#&!#!&* GNU Emacs 24 changed the semantics of `backward-delete-char'
    so that it deletes the region in transient mark mode.  The rest of
    paredit will need to be changed to reflect this too -- argh.
---
 test.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test.el b/test.el
index c610ba4..eb7ef04 100644
--- a/test.el
+++ b/test.el
@@ -42,10 +42,10 @@ Four arguments: the paredit command, the text of the buffer
           (insert before)
           (goto-char (point-min))
           (if (search-forward "_" nil t)
-              (progn (backward-delete-char +1) (set-mark (point))))
+              (progn (delete-char -1) (set-mark (point))))
           (goto-char (point-min))
           (search-forward "|")
-          (backward-delete-char +1)
+          (delete-char -1)
           (if (cond ((eq expected 'error)
                      ;++ Check that there are no more expected states.
                      (condition-case condition



reply via email to

[Prev in Thread] Current Thread [Next in Thread]