[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8ef8da13f6: Fix typo in last help-fns--insert-menu-bindings chang
From: |
Lars Ingebrigtsen |
Subject: |
master 8ef8da13f6: Fix typo in last help-fns--insert-menu-bindings change |
Date: |
Mon, 3 Oct 2022 15:35:54 -0400 (EDT) |
branch: master
commit 8ef8da13f6bc287dc301c78d74d12adb406bc67d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix typo in last help-fns--insert-menu-bindings change
* lisp/help-fns.el (help-fns--insert-menu-bindings): Fix typo in
last change.
---
lisp/help-fns.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index cbf8ff1f59..eef895ae88 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8ef8da13f6: Fix typo in last help-fns--insert-menu-bindings change,
Lars Ingebrigtsen <=