[Emacs-diffs] emacs-25 27b93ec 05/14: Fix point positioning after transposing with negative arg

[Eli Zaretskii]

branch: emacs-25
commit 27b93ec0a5fd2268d2ebfa338df6e1434cb7d451
Author: Eli Barzilay <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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)
    
    Backport.
---
 lisp/simple.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 2781ad0..b115a2a 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))))