diff options
author | Glenn Morris <rgm@gnu.org> | 2011-02-05 14:46:34 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2011-02-05 14:46:34 -0800 |
commit | 4d881c83419fbdbcfc4ba8cc8b0ef88eb9c45ccd (patch) | |
tree | 24fb2b255d752532167cb2a0d0bcf58c7b1daf0d /admin/bzrmerge.el | |
parent | 233ba4d924933cb56129bd7511e6137b7c0b8e3e (diff) | |
download | emacs-4d881c83419fbdbcfc4ba8cc8b0ef88eb9c45ccd.tar.gz |
bzrmerge.el trivia.
* admin/bzrmerge.el (bzrmerge-warning-buffer): New constant.
(bzrmerge-apply): Use it.
(bzrmerge): Kill any old warning buffer first.
Diffstat (limited to 'admin/bzrmerge.el')
-rw-r--r-- | admin/bzrmerge.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/admin/bzrmerge.el b/admin/bzrmerge.el index 350f3795c52..061af80b6cf 100644 --- a/admin/bzrmerge.el +++ b/admin/bzrmerge.el @@ -35,6 +35,9 @@ (defconst bzrmerge-buffer "*bzrmerge*" "Working buffer for bzrmerge.") +(defconst bzrmerge-warning-buffer "*bzrmerge warnings*" + "Buffer where bzrmerge will display any warnings.") + (defun bzrmerge-merges () "Return the list of already merged (not yet committed) revisions. The list returned is sorted by oldest-first." @@ -290,7 +293,8 @@ Does not make other difference." ;; are conflicts. (display-warning 'bzrmerge "Resolve conflicts manually. ĦBEWARE! Important metadata is kept in this Emacs session! -Do not commit without re-running `M-x bzrmerge' first!")) +Do not commit without re-running `M-x bzrmerge' first!" + :warning bzrmerge-warning-buffer)) (error "Resolve conflicts manually"))))) (cons merge skip))))) @@ -305,6 +309,10 @@ Do not commit without re-running `M-x bzrmerge' first!")) (when (re-search-forward "submit branch: *" nil t) (buffer-substring (point) (line-end-position)))))) (read-file-name "From branch: " nil nil nil def)))) + ;; Eg we ran bzrmerge once, it stopped with conflicts, we fixed them + ;; and are running it again. + (if (get-buffer bzrmerge-warning-buffer) + (kill-buffer bzrmerge-warning-buffer)) (message "Merging from %s..." from) (require 'vc-bzr) (let ((default-directory (or (vc-bzr-root default-directory) |