[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 833d2636ff8: ; * lisp/vc/log-edit.el (log-edit--insert-filled-def
From: |
Po Lu |
Subject: |
master 833d2636ff8: ; * lisp/vc/log-edit.el (log-edit--insert-filled-defuns): Fix typos. |
Date: |
Sun, 28 Jan 2024 04:09:54 -0500 (EST) |
branch: master
commit 833d2636ff8a65c9f9f982618f1974d424baa3fe
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
; * lisp/vc/log-edit.el (log-edit--insert-filled-defuns): Fix typos.
---
lisp/vc/log-edit.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index b5f12f0b4fc..b847fb953f2 100644
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -575,8 +575,8 @@ the \\[vc-prefix-map] prefix for VC commands, for example).
"Insert FUNC-NAMES, following ChangeLog formatting."
(if (not func-names)
(insert ":")
- ;; Insert a space unless this list of file names is being inserted
- ;; at the start of a line or after a space character.
+ ;; Insert a space unless this list of defun names is being
+ ;; inserted at the start of a line or after a space character.
(unless (or (memq (char-before) '(?\n ?\s))
(> (current-column) fill-column))
(insert " "))
@@ -622,7 +622,7 @@ the \\[vc-prefix-map] prefix for VC commands, for example).
(setq inside-paren-pair nil
;; Iterate over this function name again.
func-names (cons name func-names)))
- ;; Insert this file name with a separator attached.
+ ;; Insert this defun name with a separator attached.
(insert name ", "))
;; Otherwise, decide whether to start a list of defuns or
;; to insert `name' on its own line.
@@ -632,8 +632,9 @@ the \\[vc-prefix-map] prefix for VC commands, for example).
; line after inserting
; `name'...
fill-column)
- ;; ...would leave insufficient space for any subsequent
- ;; file names, so insert it on its own line.
+ ;; ...would leave insufficient space for any
+ ;; subsequent defun names so insert it on its own
+ ;; line.
(insert (if func-names
(format "(%s)\n" name)
(format "(%s):" name)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 833d2636ff8: ; * lisp/vc/log-edit.el (log-edit--insert-filled-defuns): Fix typos.,
Po Lu <=