summaryrefslogtreecommitdiff
path: root/lisp/help-fns.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2022-10-03 21:35:43 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-10-03 21:35:43 +0200
commit8ef8da13f6bc287dc301c78d74d12adb406bc67d (patch)
treed353c78e85b41f4884a6240b1fe673d95a507745 /lisp/help-fns.el
parent71735be475f0e5e72727c567e7344df805206cd5 (diff)
downloademacs-8ef8da13f6bc287dc301c78d74d12adb406bc67d.tar.gz
Fix typo in last help-fns--insert-menu-bindings change
* lisp/help-fns.el (help-fns--insert-menu-bindings): Fix typo in last change.
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r--lisp/help-fns.el20
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index cbf8ff1f59b..eef895ae88b 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -615,16 +615,16 @@ the C sources, too."
;; Then output them.
(when strings
(when heading
- (insert heading)
- (seq-do-indexed
- (lambda (string i)
- (insert
- (cond ((zerop i) "")
- ((= i (1- (length menus))) " and ")
- (t ", ")))
- (insert (propertize (string-join (nreverse string))
- 'face 'help-key-binding)))
- strings)))))
+ (insert heading))
+ (seq-do-indexed
+ (lambda (string i)
+ (insert
+ (cond ((zerop i) "")
+ ((= i (1- (length menus))) " and ")
+ (t ", "))
+ (propertize (string-join (nreverse string))
+ 'face 'help-key-binding)))
+ strings))))
(defun help-fns--compiler-macro (function)
(pcase-dolist (`(,type . ,handler)