sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ledger-reconcile.el: don't use flatten

Browse source 
The flatten function is not part of Emacs, so better not use it.
This commit is contained in:
Rémi Vanicat 2014-07-09 14:32:31 +02:00
parent 8efc3e3795
commit 4a71dc05e6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ledger-reconcile.el
View file

@ -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)))