Mercurial > emacs
diff lisp/vc-hooks.el @ 21985:cb989530f77b
(vc-consult-rcs-headers): Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 07 May 1998 21:34:54 +0000 |
parents | 565769307f0a |
children | c10e054e2cb1 |
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 ...