path: root/contrib/cvs/tools/pcl-cvs/pcl-cvs.el
diff options
authorPeter Wemm <peter@FreeBSD.org>1998-01-26 03:09:57 +0000
committerPeter Wemm <peter@FreeBSD.org>1998-01-26 03:09:57 +0000
commit57e58c3aa7a2477ce7fa56bfea9d927b4eb43ccd (patch)
treea9812ba7ade0fde6f62c1626b45d522ba104c314 /contrib/cvs/tools/pcl-cvs/pcl-cvs.el
parent3398c9be05502e12d986ef6e89739df1dc9ba9e6 (diff)
Import cvs-1.9.23 as at 19980123. There are a number of really nice
things fixed in here, including the '-ko' vs. -A problem with remote cvs which caused all files with -ko to be resent each time (which is damn painful over a modem, I can tell you). It also found a heap of stray empty directories that should have been pruned with the -P flag to cvs update but were not for some reason. It also has the fully integrated rcs and diff, so no more fork/exec overheads for rcs,ci,patch,diff,etc. This means that it parses the control data in the rcs files only once rather than twice or more. If the 'cvs diff' vs. Index thing is going to be fixed for future patch compatability, this is the place to do it.
Notes: svn path=/vendor/cvs/dist/; revision=32785
Diffstat (limited to 'contrib/cvs/tools/pcl-cvs/pcl-cvs.el')
1 files changed, 10 insertions, 4 deletions
diff --git a/contrib/cvs/tools/pcl-cvs/pcl-cvs.el b/contrib/cvs/tools/pcl-cvs/pcl-cvs.el
index 8a1312242407..1dd7caebfbef 100644
--- a/contrib/cvs/tools/pcl-cvs/pcl-cvs.el
+++ b/contrib/cvs/tools/pcl-cvs/pcl-cvs.el
@@ -1,7 +1,7 @@
;;;#ident "@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp "
-;;;#ident "@(#)cvs/contrib/pcl-cvs:$Name: $:$Id: pcl-cvs.el,v 1.6 1996/11/06 17:29:31 jimb Exp $"
+;;;#ident "@(#)cvs/contrib/pcl-cvs:$Name: $:$Id: pcl-cvs.el,v 1.7 1998/01/04 14:24:13 kingdon Exp $"
;;; pcl-cvs.el -- A Front-end to CVS 1.3 or later.
;;; Release 1.05-CVS-$Name: $.
@@ -1014,7 +1014,7 @@ ERR-BUF should be 'STDOUT or 'STDERR."
(insert "Pcl-cvs Version: "
"@(#)OrigId: pcl-cvs.el,v 1.93 1993/05/31 22:44:00 ceder Exp\n")
(insert "CVS Version: "
- "@(#)cvs/contrib/pcl-cvs:$Name: $:$Id: pcl-cvs.el,v 1.6 1996/11/06 17:29:31 jimb Exp $\n\n")
+ "@(#)cvs/contrib/pcl-cvs:$Name: $:$Id: pcl-cvs.el,v 1.7 1998/01/04 14:24:13 kingdon Exp $\n\n")
(insert (format "--- Contents of stdout buffer (%d chars) ---\n"
(length stdout)))
(insert stdout)
@@ -3288,7 +3288,13 @@ for more details."
"See if ChangeLog entry at point is for the current user, today.
Return non-nil iff it is."
;; Code adapted from add-change-log-entry.
- (looking-at (concat (regexp-quote (substring (current-time-string)
+ (or (looking-at
+ (regexp-quote (format "%s %s <%s>"
+ (format-time-string "%Y-%m-%d")
+ add-log-full-name
+ add-log-mailing-address)))
+ (looking-at
+ (concat (regexp-quote (substring (current-time-string)
0 10))
".* "
(regexp-quote (substring (current-time-string) -4))
@@ -3301,7 +3307,7 @@ Return non-nil iff it is."
(regexp-quote (if (and (boundp 'add-log-mailing-address)
- user-mail-address)))))
+ user-mail-address))))))
(defun cvs-relative-path (base child)
"Return a directory path relative to BASE for CHILD.