Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
21984:7daf32aabd53 | 21985:cb989530f77b |
---|---|
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998 Free Software Foundation, Inc. |
4 | 4 |
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 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
431 (set-buffer (get-file-buffer file)) | 431 (set-buffer (get-file-buffer file)) |
432 (goto-char (point-min)) | 432 (goto-char (point-min)) |
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 ... |
444 (setq version (buffer-substring-no-properties (match-beginning 1) | 444 (setq version (buffer-substring-no-properties (match-beginning 1) |
445 (match-end 1))) | 445 (match-end 1))) |