From ace68028f485311eb592d013be88304ca9bc67a0 Mon Sep 17 00:00:00 2001 From: Jesse Alama Date: Sat, 21 Feb 2009 17:13:29 -0800 Subject: [PATCH] Indicate what the report name is in report buffers * lisp/ledger.el: Indicate what the report name is in report buffers --- lisp/ledger.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ledger.el b/lisp/ledger.el index 33d77926..0b04c0aa 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -960,7 +960,8 @@ the default." (defun ledger-do-report (cmd) "Run a report command line." (goto-char (point-min)) - (insert (format "Report: %s\n" cmd) + (insert (format "Report: %s\n" ledger-report-name) + (format "Command: %s\n" cmd) (make-string (- (window-width) 1) ?=) "\n") (shell-command cmd t nil))