Fix Bug#78797

diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el
index 9bef7fe780fe3282bfb1677290322d88c5d51b86..2463f2f8b01de614f239ff74bc535b7d724d430f 100644 (file)
--- 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)