diff options
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) |