mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juanma Barranquero 2003-04-02 21:37:53 +00:00
parent a5393da851
commit 9b3922840e
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/sort.el
View file

@ -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)