d r -> diff-repository (was: New PCVS command: d y -> diff-yesterday)

[Juri Linkov]

address@hidden (Kim F. Storm) writes:
> It happens (quite often) that I would like to see what changes
> the latest cvs-update installed.  
>
> Of course, I could do cvs-examine first, but once I've done
> cvs-update, it's too late.
>
> Here's a small change which adds a "d y" to diff with yesterday's
> version of the file.  This isn't exactly equivalent of "installed by
> latest cvs-update", but for me, it is good enough in practice:

There is another useful command missing in PCVS: to view the changes
anyone has committed to the repository since you last executed
checkout/update/commit.  This command is useful to look at the changes
in the repository before doing cvs-update.

Index: lisp/pcvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.70
diff -u -r1.70 pcvs.el
--- lisp/pcvs.el        10 Jun 2004 08:29:32 -0000      1.70
+++ lisp/pcvs.el        27 Jun 2004 18:26:29 -0000
@@ -1565,6 +1565,12 @@
   (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
   (cvs-mode-diff-1 (cons "-rHEAD" flags)))
 
+(defun-cvs-mode (cvs-mode-diff-repository . SIMPLE) (flags)
+  "Diff the files for changes in the repository since last co/update/commit.
+See ``cvs-mode-diff'' for more info."
+  (interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
+  (cvs-mode-diff-1 (cons "-rBASE" (cons "-rHEAD" flags))))
+
 (defun-cvs-mode (cvs-mode-diff-yesterday . SIMPLE) (flags)
   "Diff the selected files against yesterday's head of the current branch.
 See ``cvs-mode-diff'' for more info."

Index: lisp/pcvs-defs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/pcvs-defs.el,v
retrieving revision 1.26
diff -u -r1.26 pcvs-defs.el
--- lisp/pcvs-defs.el   10 Jun 2004 08:29:12 -0000      1.26
+++ lisp/pcvs-defs.el   27 Jun 2004 18:27:32 -0000
@@ -305,6 +305,7 @@
     ("d" "diff" .      cvs-mode-diff)
     ("b" "backup" .    cvs-mode-diff-backup)
     ("h" "head" .      cvs-mode-diff-head)
+    ("r" "repository" .        cvs-mode-diff-repository)
     ("y" "yesterday" . cvs-mode-diff-yesterday)
     ("v" "vendor" .    cvs-mode-diff-vendor))
   "Keymap for diff-related operations in `cvs-mode'."

-- 
Juri Linkov
http://www.jurta.org/emacs/