[nongnu] elpa/meow 3f8f5f31ed 1/3: Add meow-keypad-message-prefix

[ELPA Syncer]

branch: elpa/meow
commit 3f8f5f31edeb8842aec7f474b9e15828e224ed7d
Author: DogLooksGood <doglooksgood@hotmail.com>
Commit: DogLooksGood <doglooksgood@hotmail.com>

    Add meow-keypad-message-prefix
---
 meow-keypad.el | 8 +++++---
 meow-shims.el  | 2 +-
 meow-var.el    | 4 ++++
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/meow-keypad.el b/meow-keypad.el
index e3e7dea81a..27f10659e7 100644
--- a/meow-keypad.el
+++ b/meow-keypad.el
@@ -331,8 +331,9 @@ Argument CONTROL, non-nils stands for current input is 
prefixed with Control."
               (max-mini-window-height 1.0))
           (save-window-excursion
             (with-temp-message
-                (format "%s\nKEYPAD: %s%s"
+                (format "%s\n%s%s%s"
                         msg
+                        meow-keypad-message-prefix
                         (let ((pre (meow--keypad-format-prefix)))
                           (if (string-blank-p pre)
                               ""
@@ -374,8 +375,9 @@ Returning DEF will result in a generated title."
 (defun meow--keypad-show-message ()
   "Show message for current keypad input."
   (let ((message-log-max))
-    (message "KEYPAD%s: %s%s"
-             (if meow--keypad-help " describe key" "")
+    (message "%s%s %s%s"
+             meow-keypad-message-prefix
+             (if meow--keypad-help "(describe key)" "")
              (let ((pre (meow--keypad-format-prefix)))
                (if (string-blank-p pre)
                    ""
diff --git a/meow-shims.el b/meow-shims.el
index 36f62730c7..9ebcca6c19 100644
--- a/meow-shims.el
+++ b/meow-shims.el
@@ -399,7 +399,7 @@ Argument ENABLE non-nil means turn on."
        which-key-use-C-h-commands nil
        meow-keypad-describe-keymap-function
        (lambda (keymap)
-         (which-key--create-buffer-and-show nil keymap nil (concat "Meow: " 
(meow--keypad-format-keys))))
+         (which-key--create-buffer-and-show nil keymap nil (concat 
meow-keypad-message-prefix (meow--keypad-format-keys))))
         meow-keypad-clear-describe-keymap-function 'which-key--hide-popup)
 
     (setq meow-keypad-describe-keymap-function 'meow-describe-keymap
diff --git a/meow-var.el b/meow-var.el
index 1533af3334..f58db9d316 100644
--- a/meow-var.el
+++ b/meow-var.el
@@ -708,6 +708,10 @@ If `meow-replace-pop' is run and the previous command is 
not
 `meow-replace-pop' signals an error."
   :type '(alist :key-type function :value-type natnum))
 
+(defcustom meow-keypad-message-prefix "Keypad: "
+  "The prefix string for keypad messages."
+  :type 'string)
+
 (defvar meow--replace-pop-index nil
   "The index of the previous replacement in the `kill-ring'.
 See also the command `meow-replace-pop'.")