[mew-dist 18870] Re: sort

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 18858] Re: sort

> (-2 num) で、100 を 90 にいれるとすると、
> 
> 89 09/11/2001 ....
> 91 09/11/2001 ....
> 100 09/11/2001 ....
> ~~~ <- 桁あふれ
> end は 91 の行の先頭
> 
>  ↓
> 
> 89 09/11/2001 ....
> 90 09/11/2001 .... <= 一文字分短くなるので、end はこの行の最後を示す
> 91 09/11/2001 ....

 	    ((<= pos beg)
 	     (setq line (buffer-substring beg end))
 	     (delete-region beg end)
	     (goto-char end)
	     (save-excursion
 	       (goto-char pos)
 	       (insert (mew-sort-adjust-number form dst line)))
 	     (point))
 
みたいな感じでいいですか？

--かず