Mercurial > emacs

changeset 44521:d0c94b4f58f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sort-reorder-buffer): Don't assume point-min == 1.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 12 Apr 2002 03:42:56 +0000
parents 53a8da1bdd13
children cada3f53aa13
files lisp/sort.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/sort.el	Fri Apr 12 03:33:20 2002 +0000
+++ b/lisp/sort.el	Fri Apr 12 03:42:56 2002 +0000
@@ -186,9 +186,7 @@
 	      sort-lists (cdr sort-lists)
 	      old (cdr old)))
       (goto-char (point-max))
-      (insert-buffer-substring old-buffer
-			       last
-			       max)
+      (insert-buffer-substring old-buffer last max)
 
       ;; Copy the reordered text from the temporary buffer
       ;; to the buffer we sorted (OLD-BUFFER).
@@ -203,7 +201,7 @@
 	(delete-region min max)
 	;; Now replace the separator " " with the sorted text.
 	(goto-char (point-max))
-	(insert-buffer-substring temp-buffer 1 (1+ (- max min)))
+	(insert-buffer-substring temp-buffer)
 	(delete-region min (1+ min))))))
 
 ;;;###autoload