From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 3 Oct 2022 19:35:43 +0000 (+0200)
Subject: Fix typo in last help-fns--insert-menu-bindings change
X-Git-Tag: emacs-29.0.90~1856^2~54
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ef8da13f6bc287dc301c78d74d12adb406bc67d;p=emacs.git

Fix typo in last help-fns--insert-menu-bindings change

* lisp/help-fns.el (help-fns--insert-menu-bindings): Fix typo in
last change.
---

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)