emacs-diffs
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]