From c8d1e4475a84acde9efe74eab28519ee42f14ecf Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 22 Jun 2025 10:07:52 +0200 Subject: [PATCH] Fix Bug#78797 --- lisp/emacs-lisp/rmc.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.5