Mercurial > emacs

comparison lisp/vc-hooks.el @ 21985:cb989530f77b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)))