/[emacs]/emacs/lisp/sort.el
ViewVC logotype

Diff of /emacs/lisp/sort.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by rms, Sun Dec 23 06:44:39 2001 UTC revision 1.41 by monnier, Fri Apr 12 03:42:56 2002 UTC
# Line 186  same as ENDRECFUN." Line 186  same as ENDRECFUN."
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).
# Line 203  same as ENDRECFUN." Line 201  same as ENDRECFUN."
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

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26