aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2025-05-13 18:50:31 +0300
committerEli Zaretskii2025-05-13 18:50:31 +0300
commitebeeced9e3ca94bbb679730155a2582bc12f8ea7 (patch)
tree2f1506cfafb40cdb541911e282e8b7c2743a565c
parentb3e280faba98d2ca7e4feef1017e3bebf53f036a (diff)
downloademacs-ebeeced9e3ca94bbb679730155a2582bc12f8ea7.tar.gz
emacs-ebeeced9e3ca94bbb679730155a2582bc12f8ea7.zip
Fix description of a remapped command's bindings
* lisp/help-fns.el (help-fns--key-bindings): Qualify the description of any menu-bar bindings by remapping. (Bug#78391)
-rw-r--r--lisp/help-fns.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index e7bbd25b413..7e0595740e5 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -624,8 +624,15 @@ the C sources, too."
624 (let ((start (point))) 624 (let ((start (point)))
625 (help-fns--insert-menu-bindings 625 (help-fns--insert-menu-bindings
626 menus 626 menus
627 (concat "It can " (and keys "also ") 627 (concat "It " (if remapped "could " "can ") (and keys "also ")
628 "be invoked from the menu: ")) 628 "be invoked from the menu: "))
629 (when remapped
630 (princ ", but that was remapped to ")
631 (princ (if (symbolp remapped)
632 (format-message "`%s'" remapped)
633 "an anonymous command"))
634 (princ "as well.\n"))
635 (or remapped (princ "."))
629 (fill-region-as-paragraph start (point)))) 636 (fill-region-as-paragraph start (point))))
630 (ensure-empty-lines))))))) 637 (ensure-empty-lines)))))))
631 638