Mercurial > emacs

comparison lisp/pcvs.el @ 56011:bf2ee754eeed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cvs-mode-diff-yesterday): New command.
author Kim F. Storm <storm@cua.dk>
date Thu, 10 Jun 2004 08:29:32 +0000
parents b25f4dadde90
children 6a5f26b68c3c 4c90ffeb71c5
comparison
equal deleted inserted replaced
56010:42cb534d806a 56011:bf2ee754eeed
1563 "Diff the selected files against the head of the current branch. 1563 "Diff the selected files against the head of the current branch.
1564 See ``cvs-mode-diff'' for more info." 1564 See ``cvs-mode-diff'' for more info."
1565 (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))) 1565 (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
1566 (cvs-mode-diff-1 (cons "-rHEAD" flags))) 1566 (cvs-mode-diff-1 (cons "-rHEAD" flags)))
1567 1567
1568 (defun-cvs-mode (cvs-mode-diff-yesterday . SIMPLE) (flags)
1569 "Diff the selected files against yesterday's head of the current branch.
1570 See ``cvs-mode-diff'' for more info."
1571 (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
1572 (cvs-mode-diff-1 (cons "-Dyesterday" flags)))
1573
1568 (defun-cvs-mode (cvs-mode-diff-vendor . SIMPLE) (flags) 1574 (defun-cvs-mode (cvs-mode-diff-vendor . SIMPLE) (flags)
1569 "Diff the selected files against the head of the vendor branch. 1575 "Diff the selected files against the head of the vendor branch.
1570 See ``cvs-mode-diff'' for more info." 1576 See ``cvs-mode-diff'' for more info."
1571 (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))) 1577 (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
1572 (cvs-mode-diff-1 (cons (concat "-r" cvs-vendor-branch) flags))) 1578 (cvs-mode-diff-1 (cons (concat "-r" cvs-vendor-branch) flags)))