From 9d54ca3e7db4c64fae65d6fb2eeb8788c2a43011 Mon Sep 17 00:00:00 2001 From: Bram Schoenmakers Date: Tue, 11 Apr 2023 23:08:00 +0200 Subject: [PATCH] Set /bin/cat as pager Ledger's command line does not respect any pager related flag (e.g. --no-pager). So the only resort is to set a pager ourselves being /bin/cat. --- comint-ledger.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/comint-ledger.el b/comint-ledger.el index f817d8c..224ff86 100644 --- a/comint-ledger.el +++ b/comint-ledger.el @@ -50,7 +50,8 @@ variable, otherwise a prompt will appear to select a file." (interactive (list (or comint-ledger-file-path (read-file-name "Ledger file: ")))) (let* ((ledger-program comint-ledger-cli-path) - (ledger-file-arguments (list "--no-pager" "-f" ledger-file)) + (ledger-file-arguments (list "-f" ledger-file)) + (process-environment (append process-environment '("PAGER=/bin/cat"))) (ledger-arguments (append ledger-file-arguments comint-ledger-cli-arguments)) (buffer (get-buffer-create comint-ledger-buffer-name)) (proc-alive (comint-check-proc buffer)))