From e221d32daf4c3072a5a368bd813f758711dd6ff5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 13 Nov 2015 11:46:20 +0200 Subject: [PATCH] Fix point positioning after transposing with negative arg * lisp/simple.el (transpose-subr): When invoked with a negative argument, move point to after the transposed text, like we do when invoked with a positive argument. (Bug#21885) --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index 2781ad02b97..b115a2a0cbb 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -6634,7 +6634,8 @@ current object." (setq pos1 (funcall aux -1)) (goto-char (car pos1)) (setq pos2 (funcall aux arg)) - (transpose-subr-1 pos1 pos2))))) + (transpose-subr-1 pos1 pos2) + (goto-char (+ (car pos2) (- (cdr pos1) (car pos1)))))))) (defun transpose-subr-1 (pos1 pos2) (when (> (car pos1) (cdr pos1)) (setq pos1 (cons (cdr pos1) (car pos1)))) -- 2.39.2