752 |
(let ((files (sort (directory-files nnsoup-directory t "IDX$") |
(let ((files (sort (directory-files nnsoup-directory t "IDX$") |
753 |
(lambda (f1 f2) |
(lambda (f1 f2) |
754 |
(< (progn (string-match "/\\([0-9]+\\)\\." f1) |
(< (progn (string-match "/\\([0-9]+\\)\\." f1) |
755 |
(string-to-int (match-string 1 f1))) |
(string-to-number (match-string 1 f1))) |
756 |
(progn (string-match "/\\([0-9]+\\)\\." f2) |
(progn (string-match "/\\([0-9]+\\)\\." f2) |
757 |
(string-to-int (match-string 1 f2))))))) |
(string-to-number (match-string 1 f2))))))) |
758 |
active group lines ident elem min) |
active group lines ident elem min) |
759 |
(set-buffer (get-buffer-create " *nnsoup work*")) |
(set-buffer (get-buffer-create " *nnsoup work*")) |
760 |
(while files |
(while files |