Commit 3d6e95e7 authored by Juri Linkov's avatar Juri Linkov
Browse files

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

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

Fixes: debbugs:16170
parent b41594fd
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment