[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/sort.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/sort.el |
Date: |
Wed, 02 Apr 2003 16:37:53 -0500 |
Index: emacs/lisp/sort.el
diff -c emacs/lisp/sort.el:1.44 emacs/lisp/sort.el:1.45
*** emacs/lisp/sort.el:1.44 Mon Feb 10 16:36:03 2003
--- emacs/lisp/sort.el Wed Apr 2 16:37:53 2003
***************
*** 192,207 ****
(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))
(insert-buffer-substring temp-buffer)
! (delete-region min (1+ min))))))
;;;###autoload
(defun sort-lines (reverse beg end)
--- 192,204 ----
(set-buffer old-buffer)
(let ((inhibit-quit t))
;; Make sure insertions done for reordering
! ;; 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 max (1+ max))))))
;;;###autoload
(defun sort-lines (reverse beg end)
- [Emacs-diffs] Changes to emacs/lisp/sort.el,
Juanma Barranquero <=