* lisp/vc/log-edit.el (log-edit-insert-filenames-without-changelog): New function.

(log-edit-hook): Add it to :options.

Fixes: debbugs:16170

1 files changed, 16 insertions, 0 deletions

diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index 2ee60a872e4..791215b8000 100644
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -137,6 +137,7 @@ its SETUP argument is non-nil."
                          log-edit-insert-cvs-template
                          log-edit-insert-changelog
                          log-edit-insert-filenames
+                         log-edit-insert-filenames-without-changelog
                          log-edit-show-files)))
 
 (defcustom log-edit-mode-hook (if (boundp 'vc-log-mode-hook) vc-log-mode-hook)
@@ -664,6 +665,21 @@ can thus take some time."
   (insert "Affected files:  \n"
           (mapconcat 'identity (log-edit-files) "  \n")))
 
+(defun log-edit-insert-filenames-without-changelog ()
+  "Insert the list of files that have no ChangeLog message."
+  (interactive)
+  (let ((files
+         (delq nil
+               (mapcar
+                (lambda (file)
+                  (unless (or (cdr-safe (log-edit-changelog-entries file))
+                              (equal (file-name-nondirectory file) "ChangeLog"))
+                    file))
+                (log-edit-files)))))
+    (when files
+      (goto-char (point-max))
+      (insert (mapconcat 'identity files ", ") ": "))))
+
 (defun log-edit-add-to-changelog ()
   "Insert this log message into the appropriate ChangeLog file."
   (interactive)