From 9b6c946ea20733f3869c1ae051428eb52a57c0e2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 2 Jun 2009 19:28:36 +0100 Subject: [PATCH] Simplified a call to (error) in ledger.el --- lisp/ledger.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/ledger.el b/lisp/ledger.el index a649250d..6c91c29e 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -225,9 +225,7 @@ Return the difference in the format of a time value." (mapcar 'eval args))) (goto-char (point-min)) (if (looking-at "Error: ") - (progn - (message (buffer-string)) - (error)) + (error (buffer-string)) (buffer-string))) "\n"))))