diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-11-12 09:24:29 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-11-12 09:24:29 -0700 |
| commit | fc716a5ca1a5f107361970b55005cfd368268714 (patch) | |
| tree | edde13f66c7e73e5c5a614b43067bc220978b7b1 /lisp/ledger-context.el | |
| parent | f34ad34b89e9ba09113a88a2f1d827976496db29 (diff) | |
| parent | 1db0b0892c2e382cd2f437434f8338861740e0dd (diff) | |
| download | fork-ledger-fc716a5ca1a5f107361970b55005cfd368268714.tar.gz fork-ledger-fc716a5ca1a5f107361970b55005cfd368268714.tar.bz2 fork-ledger-fc716a5ca1a5f107361970b55005cfd368268714.zip | |
Merge branch 'ledger-mode-automatic-transactions'
Conflicts:
lisp/ledger-post.el
Diffstat (limited to 'lisp/ledger-context.el')
| -rw-r--r-- | lisp/ledger-context.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ledger-context.el b/lisp/ledger-context.el index b1bcd870..aafcc5d8 100644 --- a/lisp/ledger-context.el +++ b/lisp/ledger-context.el @@ -51,14 +51,14 @@ (concat (symbol-name e) "-string")))))) "[ \t]*$"))) (defmacro single-line-config2 (&rest elements) -"Take list of ELEMENTS and return regex and element list for use in context-at-point" + "Take list of ELEMENTS and return regex and element list for use in context-at-point" (let (regex-string) `'(,(concat (dolist (e elements regex-string) - (setq regex-string - (concat regex-string - (eval - (intern - (concat (symbol-name e) "-string")))))) "[ \t]*$") + (setq regex-string + (concat regex-string + (eval + (intern + (concat (symbol-name e) "-string")))))) "[ \t]*$") ,elements))) (defmacro single-line-config (&rest elements) @@ -68,8 +68,8 @@ (defconst ledger-line-config (list (list 'xact (list (single-line-config date nil status nil code nil payee nil comment) - (single-line-config date nil status nil code nil payee) - (single-line-config date nil status nil payee))) + (single-line-config date nil status nil code nil payee) + (single-line-config date nil status nil payee))) (list 'acct-transaction (list (single-line-config indent comment) (single-line-config2 indent status account nil commodity amount nil comment) (single-line-config2 indent status account nil commodity amount) |