Make ledger-report-select-report an obsolete alias of ledger-report

Calling ledger-report directly works since bug #265 so this function
isn't needed anymore.

Closes #203

1 files changed, 3 insertions, 8 deletions

diff --git a/ledger-report.el b/ledger-report.el
index cb6237e..ed06d8f 100644
--- a/ledger-report.el
+++ b/ledger-report.el
@@ -186,7 +186,7 @@ See documentation for the function `ledger-master-file'")
     (define-key map [?r] #'ledger-report-redo)
     (define-key map [(shift ?r)] #'ledger-report-reverse-report)
     (define-key map [?s] #'ledger-report-save)
-    (define-key map [(shift ?s)] #'ledger-report-select-report)
+    (define-key map [(shift ?s)] #'ledger-report)
     (define-key map [?e] #'ledger-report-edit-report)
     (define-key map [( shift ?e)] #'ledger-report-edit-reports)
     (define-key map [?q] #'ledger-report-quit)
@@ -207,7 +207,7 @@ See documentation for the function `ledger-master-file'")
 (easy-menu-define ledger-report-mode-menu ledger-report-mode-map
   "Ledger report menu"
   '("Reports"
-    ["Select Report" ledger-report-select-report]
+    ["Select Report" ledger-report]
     ["Save Report" ledger-report-save]
     ["Edit Current Report" ledger-report-edit-report]
     ["Edit All Reports" ledger-report-edit-reports]
@@ -597,12 +597,7 @@ arguments returned by `ledger-report--compute-extra-args'."
   (setq ledger-report-cmd (ledger-report-read-command ledger-report-cmd))
   (ledger-report-redo))
 
-(defun ledger-report-select-report ()
-  "Select and run one of the named reports."
-  (interactive)
-  (setq ledger-report-name (ledger-report-read-name)
-        ledger-report-cmd (ledger-report-cmd ledger-report-name nil))
-  (ledger-report-redo))
+(define-obsolete-function-alias 'ledger-report-select-report #'ledger-report "ledger 4.0.0")
 
 (defun ledger-report-read-new-name ()
   "Read the name for a new report from the minibuffer."