]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix typo in last help-fns--insert-menu-bindings change
authorLars Ingebrigtsen <larsi@gnus.org>
Mon, 3 Oct 2022 19:35:43 +0000 (21:35 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Mon, 3 Oct 2022 19:35:43 +0000 (21:35 +0200)
* lisp/help-fns.el (help-fns--insert-menu-bindings): Fix typo in
last change.

lisp/help-fns.el

index cbf8ff1f59b911182c40341c5623389d7978ad0a..eef895ae88b2f07c13204a00d842fc5f2a56acb5 100644 (file)
@@ -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)