From 55ffbeaab1da66abee8a84f79c2cebd2c61f336f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 10 Feb 2025 14:57:03 +0100 Subject: [PATCH] Don't error on 'C-h f menu-bar-open-mouse RET' * lisp/help-fns.el (help-fns--insert-menu-bindings): Fix error when passed 'menu-bar-open-mouse'. (Bug#76172) --- lisp/help-fns.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 9324cf85454..6112df99850 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -649,7 +649,8 @@ the C sources, too." (lambda (entry level) (when (symbolp map) (setq map (symbol-function map))) - (when-let* ((elem (assq entry (cdr map)))) + (when-let* ((elem (assq entry (cdr map))) + (_ (proper-list-p elem))) (when (> level 0) (push sep string)) (if (eq (nth 1 elem) 'menu-item)