aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/vc-hooks.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index aeab27f5302..709e7014262 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -5,7 +5,7 @@
5;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> 6;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
7 7
8;; $Id: vc-hooks.el,v 1.107 1998/05/02 16:41:44 spiegel Exp spiegel $ 8;; $Id: vc-hooks.el,v 1.108 1998/05/06 13:36:45 spiegel Exp rms $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -433,11 +433,11 @@ similarly for other version control systems."
433 (cond 433 (cond
434 ;; search for $Id or $Header 434 ;; search for $Id or $Header
435 ;; ------------------------- 435 ;; -------------------------
436 ;; The ':\ 's below avoid an RCS 5.7 bug when checking in this file. 436 ;; The `\ 's below avoid an RCS 5.7 bug when checking in this file.
437 ((or (and (search-forward "$Id:\ " nil t) 437 ((or (and (search-forward "$Id\ : " nil t)
438 (looking-at "[^ ]+ \\([0-9.]+\\) ")) 438 (looking-at "[^ ]+ \\([0-9.]+\\) "))
439 (and (progn (goto-char (point-min)) 439 (and (progn (goto-char (point-min))
440 (search-forward "$Header:\ " nil t)) 440 (search-forward "$Header\ : " nil t))
441 (looking-at "[^ ]+ \\([0-9.]+\\) "))) 441 (looking-at "[^ ]+ \\([0-9.]+\\) ")))
442 (goto-char (match-end 0)) 442 (goto-char (match-end 0))
443 ;; if found, store the revision number ... 443 ;; if found, store the revision number ...