emacs-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]