Mercurial > emacs
changeset 50406:180066f315b2
(sort-reorder-buffer): Fix saving of markers at the end of the sorted region.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 02 Apr 2003 21:37:53 +0000 |
| parents | 9a2ca7beda84 |
| children | 41c0eed9d556 |
| files | lisp/sort.el |
| diffstat | 1 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/sort.el Wed Apr 02 21:24:56 2003 +0000 +++ b/lisp/sort.el Wed Apr 02 21:37:53 2003 +0000 @@ -192,16 +192,13 @@ (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)