Show More
@@ -347,11 +347,14 b' directory is modified."' | |||
|
347 | 347 | (error "Not in an MQ repository!")) |
|
348 | 348 | (find-file (concat root ".hg/patches/series")))) |
|
349 | 349 | |
|
350 | (defun mq-diff () | |
|
351 |
"Display a diff of the topmost applied patch. |
|
|
352 | (interactive) | |
|
350 | (defun mq-diff (&optional git) | |
|
351 | "Display a diff of the topmost applied patch. | |
|
352 | With a prefix argument, display a git-compatible diff." | |
|
353 | (interactive "P") | |
|
353 | 354 | (hg-view-output ((format "MQ: Diff of %s" (mq-patch-info "qtop"))) |
|
354 | (call-process (hg-binary) nil t nil "qdiff") | |
|
355 | (if git | |
|
356 | (call-process (hg-binary) nil t nil "qdiff" "--git") | |
|
357 | (call-process (hg-binary) nil t nil "qdiff")) | |
|
355 | 358 | (diff-mode) |
|
356 | 359 | (font-lock-fontify-buffer))) |
|
357 | 360 |
General Comments 0
You need to be logged in to leave comments.
Login now