From b57cff24bdbb90917f7278606ae2bb703fa47b34 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 10 Feb 2012 09:39:34 -1000 Subject: Split a string in ledger.el --- lisp/ledger.el | 6 ++++-- 1 file 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) "") (equal (car where) "/dev/stdin"))) + (or (equal (car where) "") + (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) -- cgit v1.2.3