We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5d46822 commit 8bad528Copy full SHA for 8bad528
ledger-exec.el
@@ -60,11 +60,10 @@
60
61
(defun ledger-exec-success-p (exit-code ledger-output-buffer)
62
"Return non-nil if EXIT-CODE and LEDGER-OUTPUT-BUFFER indicate success."
63
- (not
64
- (and (zerop exit-code)
65
- (with-current-buffer ledger-output-buffer
66
- (goto-char (point-min))
67
- (and (> (buffer-size) 1) (looking-at (regexp-quote "While")))))))
+ (and (zerop exit-code)
+ (with-current-buffer ledger-output-buffer
+ (goto-char (point-min))
+ (not (and (> (buffer-size) 1) (looking-at (regexp-quote "While")))))))
68
69
(defun ledger-exec-ledger (input-buffer &optional output-buffer &rest args)
70
"Run Ledger using INPUT-BUFFER.
0 commit comments