From 9b3922840e9b617bed9dc5cad72bb9d7e387b34e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 2 Apr 2003 21:37:53 +0000 Subject: [PATCH] (sort-reorder-buffer): Fix saving of markers at the end of the sorted region. --- lisp/sort.el | 15 ++++++--------- 1 file 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) -- 2.39.2