diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2013-06-05 11:44:35 +0800 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-07-01 00:30:39 +0200 |
| commit | cc7d54515b8f6412399bc8a014430880b8046587 (patch) | |
| tree | 1373b5f6ab83944c7b961107b1bcb2fb5970a29c | |
| parent | ce0269fb6bbabb5dca5a4aecd27ed13eb0e31ac8 (diff) | |
| download | org-mode-cc7d54515b8f6412399bc8a014430880b8046587.tar.gz | |
* contrib/lisp/orgtbl-sqlinsert.el (orgtbl-to-sqlinsert): Bugfixes regarding header line formatting
| -rw-r--r-- | contrib/lisp/orgtbl-sqlinsert.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/lisp/orgtbl-sqlinsert.el b/contrib/lisp/orgtbl-sqlinsert.el index f07a0ba..b00c93d 100644 --- a/contrib/lisp/orgtbl-sqlinsert.el +++ b/contrib/lisp/orgtbl-sqlinsert.el @@ -70,14 +70,14 @@ this function is called." (*orgtbl-default-fmt* 'orgtbl-sql-strip-and-quote) (params2 (list - :sqlname name + :sqlname (plist-get params :sqlname) :tstart (lambda () (concat (if nowebname (format "<<%s>>= \n" nowebname) "") "BEGIN TRANSACTION;")) :tend (lambda () (concat "COMMIT;" (if nowebname "\n@ " ""))) - :hfmt (lambda (f) (progn (if firstheader (push f hdrlist)) "")) - :hlfmt (lambda (lst) (setq firstheader nil)) + :hfmt (lambda (f) (progn (if firstheader (push f hdrlist) ""))) + :hlfmt (lambda (&rest cells) (setq firstheader nil)) :lstart (lambda () (concat "INSERT INTO " sqlname "( " (mapconcat 'identity (reverse hdrlist) |