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

Simplified a call to (error) in ledger.el

Browse source
This commit is contained in:
John Wiegley 2009-06-02 19:28:36 +01:00
parent c79fd9e72d
commit 9b6c946ea2
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ledger.el
View file

@ -225,9 +225,7 @@ Return the difference in the format of a time value."
(mapcar 'eval args))) (mapcar 'eval args)))
(goto-char (point-min)) (goto-char (point-min))
(if (looking-at "Error: ") (if (looking-at "Error: ")
(progn (error (buffer-string))
(message (buffer-string))
(error))
(buffer-string))) (buffer-string)))
"\n")))) "\n"))))