;; 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.
(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 ...