From: Taylor R. Campbell <net/mumble/campbell>
Date: Tue, 27 Jun 2006 18:43:59 +0000 (+0000)
Subject: Call UNDO-RECORD-POINT! before modifications in `paredit-splice-sexp'
X-Git-Tag: 20090517-FFI~987
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=78e45bebb9d7d8daa3cdbd9e9cc0a3deb10a9da1;p=mit-scheme.git

Call UNDO-RECORD-POINT! before modifications in `paredit-splice-sexp'
and `paredit-split-sexp' commands, so that their undoing works as
expected.
---

diff --git a/v7/src/edwin/paredit.scm b/v7/src/edwin/paredit.scm
index 3ae7e74e2..da9c1b9d3 100644
--- a/v7/src/edwin/paredit.scm
+++ b/v7/src/edwin/paredit.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: paredit.scm,v 1.4 2006/06/27 18:39:45 riastradh Exp $
+$Id: paredit.scm,v 1.5 2006/06/27 18:43:59 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -582,6 +582,7 @@ With a numerical prefix argument N, kill N S-expressions backward in
   enclosing list.  If N is negative, kill forward."
   "P"
   (lambda (argument)
+    (undo-record-point!)
     (if argument (paredit-kill-surrounding-sexps-for-splice argument))
     (let* ((before-open (backward-up-list (current-point) 1 'ERROR))
            (before-close
@@ -668,6 +669,7 @@ With a numerical prefix argument N, kill N S-expressions backward in
              (paredit-save-excursion (lambda ()
                                        (insert-char #\space))))
             (else
+             (undo-record-point!)
              (split-sexp-at-point))))))
 
 (define (split-sexp-at-point)