From 38899558cf242187966d8bf1771a3c8e48eb5090 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 5 Apr 2017 18:47:53 +0000 Subject: Don't reindent single-line edits in paredit-raise-sexp. Add a couple trivial tests for paredit-raise-sexp. Bug reported by Alex Plotnick. --- test.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'test.el') diff --git a/test.el b/test.el index f3444af..307747b 100644 --- a/test.el +++ b/test.el @@ -1409,3 +1409,11 @@ Four arguments: the paredit command, the text of the buffer ("(let ((x 0)) a (progn|) b)" "(progn |(let ((x 0)) a b))") ("(let ((x 0)) a (progn| ) b)" "(progn |(let ((x 0)) a b))") ("(let ((x 0)) a (progn |) b)" "(progn |(let ((x 0)) a b))"))) + +(paredit-test 'paredit-raise-sexp + `((,(concat + "(let ((x 5))\n (let ((y 3))\n |(foo bar\n baz)\n" + " (quux))\n (wrong indent))") + "(let ((x 5))\n |(foo bar\n baz)\n (wrong indent))") + ("(define (f x #!optional\n (|wrong indent))\n (+ 1 2))" + "(define (f x #!optional\n |wrong)\n (+ 1 2))"))) -- cgit v1.2.1