From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 22 Jun 2025 08:07:52 +0000 (+0200)
Subject: Fix Bug#78797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8d1e4475a84acde9efe74eab28519ee42f14ecf;p=emacs.git

Fix Bug#78797
---

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 9bef7fe780f..2463f2f8b01 100644
--- a/lisp/emacs-lisp/rmc.el
+++ b/lisp/emacs-lisp/rmc.el
@@ -43,8 +43,9 @@
     (cons char (rmc-format-key-label char (cadr elem)))))
 
 (defun rmc-key-description (key name)
-  (let ((pos (seq-position name key))
-        (desc (key-description (vector key))))
+  (let* ((key (if (vectorp key) (aref (kbd (key-description key)) 0) key))
+         (pos (seq-position name key))
+         (desc (key-description (vector key))))
     (if (or (not pos) (member desc '("ESC" "TAB" "RET" "DEL" "SPC")))
         ;; Not in the name string, or a special character.
         (format "%s %s" (propertize desc 'face 'read-multiple-choice) name)