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

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

Fixes: debbugs:16170

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 636617595cbd9b0eff0ca6594e4ac955b88e36f8..6db17ab66c689327361c9d72378221acf6f9f1fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-12-19  Juri Linkov  <juri@jurta.org>
+
+       * vc/log-edit.el (log-edit-insert-filenames-without-changelog):
+       New function.
+       (log-edit-hook): Add it to :options.  (Bug#16170)
+
 2013-12-19  Juri Linkov  <juri@jurta.org>
 
        * simple.el (eval-expression-print-format): Don't check for

diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index 2ee60a872e4eb2d691b62ca492d48085ef1ec9a8..791215b8000305dafce730648e12c0a33e68c1fb 100644 (file)
--- 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)