Mercurial > emacs

changeset 21985:cb989530f77b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-consult-rcs-headers): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 May 1998 21:34:54 +0000
parents 7daf32aabd53
children 6d7124c97b6b
files lisp/vc-hooks.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Thu May 07 21:31:00 1998 +0000
+++ b/lisp/vc-hooks.el	Thu May 07 21:34:54 1998 +0000
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc-hooks.el,v 1.107 1998/05/02 16:41:44 spiegel Exp spiegel $
+;; $Id: vc-hooks.el,v 1.108 1998/05/06 13:36:45 spiegel Exp rms $
 
 ;; This file is part of GNU Emacs.
 
@@ -433,11 +433,11 @@
       (cond  
        ;; search for $Id or $Header
        ;; -------------------------
-       ;; The ':\ 's below avoid an RCS 5.7 bug when checking in this file.
-       ((or (and (search-forward "$Id:\ " nil t)
+       ;; The `\ 's below avoid an RCS 5.7 bug when checking in this file.
+       ((or (and (search-forward "$Id\ : " nil t)
 		 (looking-at "[^ ]+ \\([0-9.]+\\) "))
 	    (and (progn (goto-char (point-min))
-			(search-forward "$Header:\ " nil t))
+			(search-forward "$Header\ : " nil t))
 		 (looking-at "[^ ]+ \\([0-9.]+\\) ")))
 	(goto-char (match-end 0))
 	;; if found, store the revision number ...