diff options
| author | John Wiegley <johnw@newartisans.com> | 2012-02-10 09:39:34 -1000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2012-02-10 09:39:34 -1000 |
| commit | b57cff24bdbb90917f7278606ae2bb703fa47b34 (patch) | |
| tree | 12c66a063482fa818744793024febed4f8356abf | |
| parent | 62f33ae7e0e2df49cdbc96d383aaff4497018a13 (diff) | |
| download | fork-ledger-b57cff24bdbb90917f7278606ae2bb703fa47b34.tar.gz fork-ledger-b57cff24bdbb90917f7278606ae2bb703fa47b34.tar.bz2 fork-ledger-b57cff24bdbb90917f7278606ae2bb703fa47b34.zip | |
Split a string in ledger.el
| -rw-r--r-- | lisp/ledger.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ledger.el b/lisp/ledger.el index a2410db8..1c8aade3 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -568,7 +568,8 @@ dropped." (let ((where (get-text-property (point) 'where)) (face (get-text-property (point) 'face))) (if (and (eq face 'bold) - (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))) + (or (equal (car where) "<stdin>") + (equal (car where) "/dev/stdin"))) (with-current-buffer ledger-buf (goto-char (cdr where)) (ledger-toggle-current 'cleared)))) @@ -581,7 +582,8 @@ dropped." (items (with-temp-buffer (let ((exit-code - (ledger-run-ledger buf "--uncleared --real" "emacs" account))) + (ledger-run-ledger buf "--uncleared" "--real" + "emacs" account))) (when (= 0 exit-code) (goto-char (point-min)) (unless (eobp) |