mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-22 04:21:24 -08:00
Code Issues Projects Releases Wiki Activity

Fix point positioning after transposing with negative arg

Browse source 
* 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)
This commit is contained in:
Eli Barzilay 2015-11-13 11:46:20 +02:00 • committed by Eli Zaretskii
parent 35f5afbca1
commit e221d32daf
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/simple.el
View file

@ -6634,7 +6634,8 @@ current object."
(setq pos1 (funcall aux -1)) (setq pos1 (funcall aux -1))
(goto-char (car pos1)) (goto-char (car pos1))
(setq pos2 (funcall aux arg)) (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) (defun transpose-subr-1 (pos1 pos2)
(when (> (car pos1) (cdr pos1)) (setq pos1 (cons (cdr pos1) (car pos1)))) (when (> (car pos1) (cdr pos1)) (setq pos1 (cons (cdr pos1) (car pos1))))