diff options
| -rw-r--r-- | lisp/vc-hooks.el | 8 |
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 ... |