From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: d r -> diff-repository (was: New PCVS command: d y -> diff-yesterday) Date: Sun, 27 Jun 2004 21:23:34 +0300 Organization: JURTA Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87isdc26pw.fsf_-_@mail.jurta.org> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1088361841 13286 80.91.224.253 (27 Jun 2004 18:44:01 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 27 Jun 2004 18:44:01 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Sun Jun 27 20:43:51 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Beed5-0005Hg-00 for ; Sun, 27 Jun 2004 20:43:51 +0200 Original-Received: from lists.gnu.org ([199.232.76.165]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1Beed5-0004bp-00 for ; Sun, 27 Jun 2004 20:43:51 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1Beeee-0007UP-Ij for emacs-devel@quimby.gnus.org; Sun, 27 Jun 2004 14:45:28 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1BeeeX-0007UB-R1 for emacs-devel@gnu.org; Sun, 27 Jun 2004 14:45:21 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1BeeeW-0007Ts-5K for emacs-devel@gnu.org; Sun, 27 Jun 2004 14:45:21 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1BeeeW-0007Tp-1A for emacs-devel@gnu.org; Sun, 27 Jun 2004 14:45:20 -0400 Original-Received: from [66.33.219.6] (helo=knife.dreamhost.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Beec3-0004CL-VK for emacs-devel@gnu.org; Sun, 27 Jun 2004 14:42:48 -0400 Original-Received: from mail.jurta.org (80-235-35-74-dsl.mus.estpak.ee [80.235.35.74]) by knife.dreamhost.com (Postfix) with ESMTP id 3B17FE407B for ; Sun, 27 Jun 2004 11:42:46 -0700 (PDT) Original-To: emacs-devel@gnu.org In-Reply-To: (Kim F. Storm's message of "07 Jun 2004 16:46:50 +0200") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:25280 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:25280 storm@cua.dk (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/