Mercurial > hg
comparison contrib/mq.el @ 3010:06696f9c30c0
mq.el: Add comment to mq-edit-finish.
author | Bryan O'Sullivan <bos@serpentine.com> |
---|---|
date | Tue, 22 Aug 2006 17:01:24 -0700 |
parents | e2bad806ccc3 |
children | b7fe334ff4fb |
comparison
equal
deleted
inserted
replaced
3009:e2bad806ccc3 | 3010:06696f9c30c0 |
---|---|
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))) |