diff options
| -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 | ||