From 52be50188ef8c49d8c1a5ef71cb0a963c6a05f09 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 28 Aug 2022 21:18:04 +0000 Subject: paredit-raise-sexp: Handle active mark in transient mark mode. --- test.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'test.el') diff --git a/test.el b/test.el index a1df058..bd8ae37 100644 --- a/test.el +++ b/test.el @@ -1481,6 +1481,18 @@ Four arguments: the paredit command, the text of the buffer "(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))"))) + +(let ((transient-mark-mode t)) + (paredit-test 'paredit-raise-sexp + '(("(a |b c_ d)" "|b c") + ("(a (b |c d_ e) f)" "(a |c d f)") + ("(a \"|b\" c_ d)" error)))) + +(let ((transient-mark-mode nil)) + (paredit-test 'paredit-raise-sexp + '(("(a |b c_ d)" "|b") + ("(a (b |c d_ e) f)" "(a |c f)") + ("(a \"|b\" c_ d)" "|\"b\"")))) (let ((paredit-comment-prefix-toplevel ";;;T ") (paredit-comment-prefix-code ";;C ") -- cgit v1.2.1