diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-04-12 03:42:56 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-04-12 03:42:56 +0000 |
| commit | 8f41205826331ee85f43b6bc2d3ac92e92215c00 (patch) | |
| tree | 8e1cfcb4774e2100ff09fb3044f6c338d1d1d583 /lisp/sort.el | |
| parent | f3ceeb7f3d81687086b110ef6324bc2217fa86e0 (diff) | |
| download | emacs-8f41205826331ee85f43b6bc2d3ac92e92215c00.tar.gz | |
(sort-reorder-buffer): Don't assume point-min == 1.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index bedc76556f6..ebcea995ad3 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -186,9 +186,7 @@ same as ENDRECFUN." 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 @@ same as ENDRECFUN." (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 |