186 |
sort-lists (cdr sort-lists) |
sort-lists (cdr sort-lists) |
187 |
old (cdr old))) |
old (cdr old))) |
188 |
(goto-char (point-max)) |
(goto-char (point-max)) |
189 |
(insert-buffer-substring old-buffer |
(insert-buffer-substring old-buffer last max) |
|
last |
|
|
max) |
|
190 |
|
|
191 |
;; Copy the reordered text from the temporary buffer |
;; Copy the reordered text from the temporary buffer |
192 |
;; to the buffer we sorted (OLD-BUFFER). |
;; to the buffer we sorted (OLD-BUFFER). |
201 |
(delete-region min max) |
(delete-region min max) |
202 |
;; Now replace the separator " " with the sorted text. |
;; Now replace the separator " " with the sorted text. |
203 |
(goto-char (point-max)) |
(goto-char (point-max)) |
204 |
(insert-buffer-substring temp-buffer 1 (1+ (- max min))) |
(insert-buffer-substring temp-buffer) |
205 |
(delete-region min (1+ min)))))) |
(delete-region min (1+ min)))))) |
206 |
|
|
207 |
;;;###autoload |
;;;###autoload |