equal
deleted
inserted
replaced
60 (global-set-key mq-global-prefix 'mq-global-map) |
60 (global-set-key mq-global-prefix 'mq-global-map) |
61 (define-key mq-global-map "." 'mq-push) |
61 (define-key mq-global-map "." 'mq-push) |
62 (define-key mq-global-map ">" 'mq-push-all) |
62 (define-key mq-global-map ">" 'mq-push-all) |
63 (define-key mq-global-map "," 'mq-pop) |
63 (define-key mq-global-map "," 'mq-pop) |
64 (define-key mq-global-map "<" 'mq-pop-all) |
64 (define-key mq-global-map "<" 'mq-pop-all) |
|
65 (define-key mq-global-map "=" 'mq-diff) |
65 (define-key mq-global-map "r" 'mq-refresh) |
66 (define-key mq-global-map "r" 'mq-refresh) |
66 (define-key mq-global-map "e" 'mq-refresh-edit) |
67 (define-key mq-global-map "e" 'mq-refresh-edit) |
67 (define-key mq-global-map "i" 'mq-new) |
68 (define-key mq-global-map "i" 'mq-new) |
68 (define-key mq-global-map "n" 'mq-next) |
69 (define-key mq-global-map "n" 'mq-next) |
69 (define-key mq-global-map "p" 'mq-previous) |
70 (define-key mq-global-map "p" 'mq-previous) |
344 (let ((root (hg-root))) |
345 (let ((root (hg-root))) |
345 (unless root |
346 (unless root |
346 (error "Not in an MQ repository!")) |
347 (error "Not in an MQ repository!")) |
347 (find-file (concat root ".hg/patches/series")))) |
348 (find-file (concat root ".hg/patches/series")))) |
348 |
349 |
|
350 (defun mq-diff () |
|
351 "Display a diff of the topmost applied patch." |
|
352 (interactive) |
|
353 (hg-view-output ((format "MQ: Diff of %s" (mq-patch-info "qtop"))) |
|
354 (call-process (hg-binary) nil t nil "qdiff") |
|
355 (diff-mode) |
|
356 (font-lock-fontify-buffer))) |
|
357 |
349 |
358 |
350 (provide 'mq) |
359 (provide 'mq) |
351 |
360 |
352 |
361 |
353 ;;; Local Variables: |
362 ;;; Local Variables: |