From 591a86a6ab008639eb24cefd54c47555fa84382a Mon Sep 17 00:00:00 2001
From: Psionik K <73710933+psionic-k@users.noreply.github.com>
Date: Tue, 21 Nov 2023 14:41:49 +0900
Subject: [PATCH] Change internal name and add docstring

This one kind of confused me

Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 keypression.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/keypression.el b/keypression.el
index 0638f55..df633ab 100644
--- a/keypression.el
+++ b/keypression.el
@@ -406,7 +406,8 @@ and show the value of `this-command' logged in the
   (and keypression-concat-digit-argument
        (memq command '(digit-argument universal-argument universal-argument-more))))
 
-(defun keypression--same-command-p (command)
+(defun keypression--digit-prefix-p (command)
+  "Should we fold digit arguments and commands for COMMAND."
   (cond
    ((keypression--digit-argument-p keypression--last-command))
    ((keypression--digit-argument-p command)
@@ -436,7 +437,7 @@ Command filtering logic is in the `keypression-post--command'."
          (digit-arg (keypression--digit-argument-p command))
          (before-digit-arg (keypression--digit-argument-p keypression--last-command)))
     (cond
-     ((and (keypression--same-command-p command)
+     ((and (keypression--digit-prefix-p command)
            (or self-insert same-key digit-arg before-digit-arg))
       ;; Just rewrite the bottom line.
       (let ((str (cond