Subject: [PATCH] Show the keybinding next to command in calc's x
From: Visuwesh <[email-masked]>
To: [email-masked]
Date: Thu, 12 Dec 2024 18:59:44 +0530
List-Id: <debbugs-submit.debbugs.gnu.org>

Tags: patch

Attached patch uses M-x's :affixation-function to show the keybinding
next to the command's name in calc's x command.

In GNU Emacs 31.0.50 (build 27, x86_64-pc-linux-gnu, X toolkit, cairo
 version 1.18.2, Xaw scroll bars) of 2024-12-07 built on astatine
Repository revision: 9ddec89e422d0dd6e9069731b8f2dd2c90aa5607
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101014
System Description: Debian GNU/Linux trixie/sid

Configured using:
 'configure --with-sound=alsa --with-x-toolkit=lucid --without-xaw3d
 --without-gconf --without-libsystemd --with-cairo CFLAGS=-g3'

From 42d5d91d9fa31ad0f42ece300a869a0e22343e46 Mon Sep 17 00:00:00 2001
From: Visuwesh <[email-masked]>
Date: Thu, 12 Dec 2024 18:58:37 +0530
Subject: [PATCH] Show the keybinding next to command in calc's x

* lisp/calc/calc-ext.el (calc-execute-extended-command): Use
M-x's :affixation-function to show the keybinding of the calc
command next to its name.
---
 lisp/calc/calc-ext.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 25d2492b277..0cbd02be657 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -1728,8 +1728,11 @@ calc-execute-extended-command
   (interactive "P")
   (let* ((prompt (concat (calc-num-prefix-name n) "M-x "))
 	 (cmd (intern
-               (completing-read prompt obarray 'commandp t "calc-"
-                                'calc-extended-command-history))))
+               (let ((completion-extra-properties
+                      (list :affixation-function
+                            #'read-extended-command--affixation)))
+                 (completing-read prompt obarray 'commandp t "calc-"
+                                  'calc-extended-command-history)))))
     (setq prefix-arg n)
     (command-execute cmd)))
 
-- 
2.45.2