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

Fix issue in ledger-fully-complete-xact to deal with possible trailing spaces after a payee

Browse source
This commit is contained in:
Craig Earls 2014-01-13 13:14:02 -07:00
parent 3b5f496536
commit aec2c7af3f
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ledger-complete.el
View file

@ -171,11 +171,16 @@ Return list."
(throw 'pcompleted t))) (throw 'pcompleted t)))
(ledger-accounts))))) (ledger-accounts)))))
(defun ledger-trim-trailing-whitespace (str)
(let ((s str))
(when (string-match "[ \t]*$" s)
(replace-match "" nil nil s))))
(defun ledger-fully-complete-xact () (defun ledger-fully-complete-xact ()
"Completes a transaction if there is another matching payee in the buffer. "Completes a transaction if there is another matching payee in the buffer.
Does not use ledger xact" Does not use ledger xact"
(interactive) (interactive)
(let* ((name (caar (ledger-parse-arguments))) (let* ((name (ledger-trim-trailing-whitespace (caar (ledger-parse-arguments))))
(rest-of-name name) (rest-of-name name)
xacts) xacts)
(save-excursion (save-excursion