From 8943e1ec68ae8495a0457a3c2bed7642a40eb96e Mon Sep 17 00:00:00 2001
From: SATO Mitsuhide <sato.mitsuhide@gmail.com>
Date: Sun, 18 Aug 2024 13:13:49 +0900
Subject: [PATCH] change all-command-list and list-config format.

---
 lib/pmacs-command-util.prfm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/pmacs-command-util.prfm b/lib/pmacs-command-util.prfm
index 38d4618..b6737c9 100644
--- a/lib/pmacs-command-util.prfm
+++ b/lib/pmacs-command-util.prfm
@@ -72,6 +72,7 @@ defcommand all-command-list desc: "Display all editor commands." {
     $buff append-string ["%v <- %v" fmt "Command" "Key bindings"];
     $buff append-string "  Description";
     $buff append-string ["%v" fmt ["-" repeat [38 * 2]]];
+    c := 0;
     msort [$EditorCommand keys :string] : each do: {| i |
         if {"" . $i : at 0 : = "."} {continue};
         binds ::= get-keybind-string $window $i;
@@ -80,8 +81,11 @@ defcommand all-command-list desc: "Display all editor commands." {
         } {
             $buff append-string ["%v" fmt ["[[" . $i "]]"]];
         };
-        $buff append-string ["  " . [get-command-desc $i]];
+        $buff append-string ["  " . [get-command-desc $i]];\
+        $buff append-string "";
+        $c ++;
     };
+    $buff append-string ["Total %v commands." fmt $c];
     $buff no-modify;
     $buff set-protect;
     
@@ -1066,8 +1070,7 @@ defcommand list-config desc: "Display configuration list." {
             [$CONFIG_RO,$i ??? "RO" "  "]
             [$CONFIG_DESC,$i ?? ""]
         ];
-        ### $buff append-string "";
-        ;;
+        $buff append-string "";
     };
     $buff no-modify;
     $buff set-protect;