diff options
| author | Eli Zaretskii | 2025-05-13 18:50:31 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-05-13 18:50:31 +0300 |
| commit | ebeeced9e3ca94bbb679730155a2582bc12f8ea7 (patch) | |
| tree | 2f1506cfafb40cdb541911e282e8b7c2743a565c | |
| parent | b3e280faba98d2ca7e4feef1017e3bebf53f036a (diff) | |
| download | emacs-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.el | 9 |
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 | ||