[Emacs-diffs] trunk r115617: * lisp/vc/log-edit.el (log-edit-insert-filenames-without-changelog): New function.

[Juri Linkov]

------------------------------------------------------------
revno: 115617
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16170
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Thu 2013-12-19 23:10:41 +0200
message:
  * lisp/vc/log-edit.el (log-edit-insert-filenames-without-changelog): New 
function.
  (log-edit-hook): Add it to :options.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/log-edit.el            logedit.el-20091113204419-o5vbwnq5f7feedwu-1776

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-19 21:02:46 +0000
+++ b/lisp/ChangeLog    2013-12-19 21:10:41 +0000
@@ -1,5 +1,11 @@
 2013-12-19  Juri Linkov  <address@hidden>
 
+       * 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  <address@hidden>
+
        * simple.el (eval-expression-print-format): Don't check for
        command names and the last command.  Always display additional
        formats of the integer result in the echo area, and insert them

=== modified file 'lisp/vc/log-edit.el'
--- a/lisp/vc/log-edit.el       2013-12-18 23:51:45 +0000
+++ b/lisp/vc/log-edit.el       2013-12-19 21:10:41 +0000
@@ -137,6 +137,7 @@
                         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 @@
   (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)