diff options
| author | Rémi Vanicat <vanicat@debian.org> | 2014-07-09 14:32:31 +0200 |
|---|---|---|
| committer | Rémi Vanicat <vanicat@debian.org> | 2014-07-09 14:34:46 +0200 |
| commit | 4a71dc05e69410c4603a1c6b62fa12c5a289dabd (patch) | |
| tree | effb35fa2ca5480e0b59a0c745422aea54b8c55e /lisp/ledger-reconcile.el | |
| parent | 8efc3e37958571913ba41cdc8132a38d8f488b36 (diff) | |
| download | fork-ledger-4a71dc05e69410c4603a1c6b62fa12c5a289dabd.tar.gz fork-ledger-4a71dc05e69410c4603a1c6b62fa12c5a289dabd.tar.bz2 fork-ledger-4a71dc05e69410c4603a1c6b62fa12c5a289dabd.zip | |
ledger-reconcile.el: don't use flatten
The flatten function is not part of Emacs, so better not use it.
Diffstat (limited to 'lisp/ledger-reconcile.el')
| -rw-r--r-- | lisp/ledger-reconcile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index d5188112..c9eab502 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -323,9 +323,9 @@ POSTING is used in `ledger-clear-whole-transactions' is nil." (let (fields (start 0)) (while (string-match "(\\(.*?\\))" fstr start) - (setq fields (list fields (intern (substring fstr (match-beginning 1) (match-end 1))))) + (setq fields (cons (intern (match-string 1 fstr)) fields)) (setq start (match-end 0))) - (setq fields (flatten (list 'format (replace-regexp-in-string "(.*?)" "" fstr) (cdr (flatten fields))))) + (setq fields (list* 'format (replace-regexp-in-string "(.*?)" "" fstr) (nreverse fields))) `(lambda (date code status payee account amount) ,fields))) |