Parent Directory | Revision Log | Patch
revision 1.64 by miles, Thu Oct 7 05:53:41 2004 UTC | revision 1.65 by miles, Thu Oct 14 07:33:19 2004 UTC | |
---|---|---|
# | Line 1615 is used by default." | Line 1615 is used by default." |
1615 | (if (not header) | (if (not header) |
1616 | nil | nil |
1617 | (let ((regexp (format "[%s]+" (or separator ","))) | (let ((regexp (format "[%s]+" (or separator ","))) |
(beg (point-min)) | ||
1618 | (first t) | (first t) |
1619 | quoted elems paren) | beg quoted elems paren) |
1620 | (with-temp-buffer | (with-temp-buffer |
1621 | (mm-enable-multibyte) | (mm-enable-multibyte) |
1622 | (setq beg (point-min)) | |
1623 | (insert header) | (insert header) |
1624 | (goto-char (point-min)) | (goto-char (point-min)) |
1625 | (while (not (eobp)) | (while (not (eobp)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |