(sort-reorder-buffer): Fix saving of markers at the end of the sorted region.

1 files changed, 6 insertions, 9 deletions

diff --git a/lisp/sort.el b/lisp/sort.el
index 84a2f9eec81..f0b21cadaa4 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -192,16 +192,13 @@ same as ENDRECFUN."
       (set-buffer old-buffer)
       (let ((inhibit-quit t))
 	;; Make sure insertions done for reordering
-	;; do not go after any markers at the end of the sorted region,
-	;; by inserting a space to separate them.
-	(goto-char max)
-	(insert-before-markers " ")
-	;; Delete the original copy of the text.
-	(delete-region min max)
-	;; Now replace the separator " " with the sorted text.
-	(goto-char (point-max))
+	;; saves any markers at the end of the sorted region,
+	;; by leaving the last character of the region.
+	(delete-region min (1- max))
+  	;; Now replace the one remaining old character with the sorted text.
+	(goto-char (point-min))
 	(insert-buffer-substring temp-buffer)
-	(delete-region min (1+ min))))))
+	(delete-region max (1+ max))))))
 
 ;;;###autoload
 (defun sort-lines (reverse beg end)