diff options
| author | Eli Zaretskii | 2025-06-26 17:39:19 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-06-26 17:39:19 +0300 |
| commit | 80cb688b04b11a0f2291a3dfb26c16febfdea4cd (patch) | |
| tree | 76bbd98ac710203ff2ecfd60ebba6d1da7d1141d | |
| parent | 2bdcf0250acecdb0719203ae711aedf5baad1783 (diff) | |
| download | emacs-80cb688b04b11a0f2291a3dfb26c16febfdea4cd.tar.gz emacs-80cb688b04b11a0f2291a3dfb26c16febfdea4cd.zip | |
Fix *Help* text when a command is bound to a single key
* lisp/help-fns.el (help-fns--key-bindings): Don't insert
redundant period. (Bug#78905)
| -rw-r--r-- | lisp/help-fns.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 481360b5d3c..9cd30107002 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -632,7 +632,11 @@ the C sources, too." | |||
| 632 | (format-message "`%s'" remapped) | 632 | (format-message "`%s'" remapped) |
| 633 | "an anonymous command")) | 633 | "an anonymous command")) |
| 634 | (princ "as well.\n")) | 634 | (princ "as well.\n")) |
| 635 | (or remapped (princ ".")) | 635 | ;; The (= (point) start) condition tests whether |
| 636 | ;; 'help-fns--insert-menu-bindings' inserted anything; | ||
| 637 | ;; if it didn't, we already have a period from the | ||
| 638 | ;; previous 'princ' call. | ||
| 639 | (or remapped (= (point) start) (princ ".")) | ||
| 636 | (fill-region-as-paragraph start (point)))) | 640 | (fill-region-as-paragraph start (point)))) |
| 637 | (ensure-empty-lines))))))) | 641 | (ensure-empty-lines))))))) |
| 638 | 642 | ||