##// END OF EJS Templates
mq.el: allow mq-diff to take a git option.
Bryan O'Sullivan -
r4425:a57ac604 default
parent child Browse files
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