mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add new TODO entry.

Browse source 
(diff-create-changelog): New function.
(diff-mode-menu): Bind it.
This commit is contained in:
Dan Nicolaescu 2008-02-04 21:41:09 +00:00
parent c0bc797888
commit 8a72c7f8c9
2 changed files with 39 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-02-04 Dan Nicolaescu <dann@ics.uci.edu>
* diff-mode.el: Add new TODO entry.
(diff-create-changelog): New function.
(diff-mode-menu): Bind it.
2008-02-04 Kenichi Handa <handa@ni.aist.go.jp>
* international/mule-diag.el (print-fontset-element): Handle the

33
lisp/diff-mode.el
View file

@ -39,6 +39,8 @@
;; Todo:
;; - Improve `diff-create-changelog', it is very simplistic now.
;;
;; - Add a `delete-after-apply' so C-c C-a automatically deletes hunks.
;; Also allow C-c C-a to delete already-applied hunks.
;;
@ -171,6 +173,8 @@ when editing big diffs)."
["Apply hunk" diff-apply-hunk t]
["Test applying hunk" diff-test-hunk t]
["Apply diff with Ediff" diff-ediff-patch t]
["Create Change Log" diff-create-changelog
:help "Create ChangeLog entries for the changes in the diff buffer"]
"-----"
["Reverse direction" diff-reverse-direction t]
["Context -> Unified" diff-context->unified t]
@ -1725,6 +1729,35 @@ For use in `add-log-current-defun-function'."
props 'diff-refine-preproc))))))))
(defun diff-create-changelog ()
"Iterate through the current diff and create ChangeLog entries."
(interactive)
;; XXX: Currently add-change-log-entry-other-window is only called
;; once per hunk. Some hunks have multiple changes, it would be
;; good to call it for each change.
(save-excursion
(goto-char (point-min))
(let ((orig-buffer (current-buffer)))
(condition-case nil
;; Call add-change-log-entry-other-window for each hunk in
;; the diff buffer.
(while t
(set-buffer orig-buffer)
(diff-hunk-next)
(beginning-of-line)
(while (not (looking-at "^ "))
(forward-line 1))
;; Move to where the changes are,
;; `add-change-log-entry-other-window' works better in
;; that case.
(while (not (looking-at "^[!+-]"))
(forward-line 1))
(add-change-log-entry-other-window)
;; Insert a "." so that the entries created don't get
;; merged.
(insert "."))
(error nil)))))
;; provide the package
(provide 'diff-mode)