Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mq.el @ 4424:1d31302c4522

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mq.el: add mq-diff function.
author Bryan O'Sullivan <bos@serpentine.com>
date Tue, 08 May 2007 11:54:39 -0700
parents 2647f1fbc24c
children a57ac6049e22
comparison
equal deleted inserted replaced
4423:2647f1fbc24c 4424:1d31302c4522
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: