equal
deleted
inserted
replaced
214 This would become the active patch if popped to." |
214 This would become the active patch if popped to." |
215 (interactive) |
215 (interactive) |
216 (mq-patch-info "qprev" "Previous")) |
216 (mq-patch-info "qprev" "Previous")) |
217 |
217 |
218 (defun mq-edit-finish () |
218 (defun mq-edit-finish () |
|
219 "Finish editing the description of this patch, and refresh the patch." |
219 (interactive) |
220 (interactive) |
220 (unless (equal (mq-patch-info "qtop") mq-top) |
221 (unless (equal (mq-patch-info "qtop") mq-top) |
221 (error "Topmost patch has changed!")) |
222 (error "Topmost patch has changed!")) |
222 (hg-sync-buffers hg-root) |
223 (hg-sync-buffers hg-root) |
223 (mq-refresh-internal hg-root "-m" (buffer-substring (point-min) (point-max))) |
224 (mq-refresh-internal hg-root "-m" (buffer-substring (point-min) (point-max))) |